Impression de plusieurs plages et des feuilles de calcul vers un fichier PDF

J'ai une feuille de calcul qui a souvent besoin d'être imprimé dans un ordre spécifique des feuilles de calcul et des plages. Ce que j'essaie de faire est de

Imprimer des feuilles de calcul et des plages dans l'ordre en un seul fichier PDF.
Enregistrer le fichier PDF comme une date précise dans un certain dossier.

L'obstacle, je suis en cours d'exécution est d'obtenir de nombreuses feuilles et des plages imprimé en un seul fichier PDF, comme actuellement, chaque feuille de calcul ou plage imprime à son propre seul fichier PDF.

Je suis en supposant qu'il un moyen de mettre tout le nécessaire, des feuilles et des plages dans quelque chose comme un tableau et ensuite faire un .L'impression de cette variable, mais je n'ai pas réussi à faire ce travail.

Je suis à l'aide d'Excel 2010 et donc je viens de l'utiliser du "Adobe PDF" de l'Imprimante.

Comment puis-je imprimer plusieurs plages et des feuilles de calcul en une seule .pdf?

Bon point, j'utilise Excel 2010 qui est livré avec l'imprimante Adobe PDF déjà installé.

InformationsquelleAutor Andy | 2012-07-17

1

Imprimer plus d'une feuille de calcul, vous pouvez mettre les noms de feuille de calcul dans un tableau comme ceci
```
Sub PrintArrayOfWorksheets()

    Dim vaWorksheets As Variant

    vaWorksheets = Array("Sheet1", "Sheet2", "Sheet3")

    ThisWorkbook.Worksheets(vaWorksheets).PrintOut

End Sub
```
Impression au format PDF a des problèmes spéciaux. Si vous êtes à l'aide de la "officielle" add-in pour la création des fichiers Pdf il fonctionnera probablement comme ci-dessus (désolé je ne peux pas l'essayer dès maintenant). Dans le passé, lorsque j'ai travaillé avec d'autres pilotes d'imprimante d'imprimer en PDF, j'ai trouvé que tous (ou au moins la plupart) de l'objet PageSetup propriétés devait être identique à celui des feuilles ou de l'imprimer dans de multiples emplois. Cela signifie qu'aucune shrink-to-fit et toutes les marges doivent être la même. Je ne me souviens pas de toutes les propriétés qui ont causé des problèmes, c'est juste que ces deux n'a certainement et de l'Orientation n'a certainement pas.

Pour limiter la plage d'impression, vous devez définir la zone d'impression sur chaque feuille. Vous pouvez utiliser l'objet PageSetup.PrintArea bien à faire dans le code. Mais si ne change pas, il est probablement tout aussi bien le faire manuellement une fois et elle persiste.
- C'est un grand pas en avant, merci pour la réponse, une question que je reçois est, pour quelques raisons, la première feuille de calcul imprime à un seul pdf et ensuite les 2 autres feuilles de calcul d'impression de pdf distinct. Il pourrait avoir à faire avec les mêmes propriétés de mise en page. Aussi ce n'est pas l'adresse de mon problème de notamment définis par l'utilisateur des plages.
InformationsquelleAutor Dick Kusleika

Voir code ci-dessous. Cela a été utilisé pour imprimer plusieurs feuilles dans un ordre personnalisé à l'aide de VBA un Bouton. Il imprime à ce que l'imprimante est sélectionnée avant de cliquer sur le bouton.

En substance ce qu'il fait est sélectionne les feuilles que vous souhaitez et les remet à la fin du classeur, puis de les imprimer. après l'impression, il réorganise à l'ordre d'origine.

Option Explicit
Private Sub Print_Sheets_InOrder_Click()
    Dim ary
    Dim orig() As String
    Dim a As Variant, fp As String, i As Variant
    ary = Array("Sheet1", "Sheet4", "Sheet3")
    fp = ActiveWorkbook.Path
    ReDim orig(1 To Sheets.Count)
    For i = 1 To Sheets.Count
        orig(i) = Sheets(i).Name
    Next i
    For Each a In ary
        Sheets(a).Move after:=Sheets(Sheets.Count)
    Next a
    ThisWorkbook.Worksheets(ary).PrintOut
    For Each a In orig
        Sheets(a).Move after:=Sheets(Sheets.Count)
    Next a
End Sub

InformationsquelleAutor Daniel

0

Excel 2010 a une impression en pdf. Si chacun de vos feuilles de calcul sont mis en place pour imprimer les informations que vous souhaitez, puis mettre en évidence les différentes feuilles de calcul que vous souhaitez imprimer un fichier pdf, puis aller dans "fichier" et "enregistrer sous" et choisir enregistrer sous le type "pdf". Il doit imprimer les feuilles de calcul que vous avez souligné que vous avez l'impression de définir pour chaque feuille de calcul.

InformationsquelleAutor AMK

Ici est une approche que j'ai essayé ... j'ai imprimer les feuilles de calcul dans un fichier PS, puis double-cliquez sur le fichier PS pour générer un fichier PDF. Je sais que c'est une solution de contournement, mais l'impression de PS est la vitesse de l'éclair. Il exige que vous avez Adobe Acrobat sur votre PC.

Dim GetPath, SavePath, ReportSuffix
GetPath = ActiveWorkbook.Path & "\"
ReportSuffix = Range("ReportName").Text & ".ps"
SavePath = GetPath & ReportSuffix

Dim PrintSheets

PrintSheets = Array("Exec1", "Intro1", "Intro2", "Intro3", "Intro4", "Intro5")

Sheets(PrintSheets).PrintOut Copies:=1, PrintTofile:=True, PrToFileName:=SavePath

InformationsquelleAutor Mike

Vous devez vous connecter pour publier un commentaire.