Mehrere Arbeitsblätter zusammen drucken

[WillWissen]

Moin,

das war aber nicht gefragt. Es geht um das richtige Layout - der TE bekommt bei seinen Ausdrucken alles in Hochformat und nicht gemischt, wie es seine Datei vorsieht. Es wird wohl irgendwo in seinen Einstellungen klemmen. Möglicherweise kommt auch nur der angefressene Apfel nicht damit klar.

[Kuwer]

Hallo,

teste mal so:

Sub speichern()
   '
   ' speichern Makro
   '
   ' Tastenkombination: Strg+s
   '
   ' PDF Export Macro
    
   Dim ws As Worksheet
   Dim ssh As Object
   Dim path As String
   
   path = Application.ThisWorkbook.path
   Set ssh = ActiveWindow.SelectedSheets
   Sheets("Daten").Select
   For Each ws In ssh
       ws.ExportAsFixedFormat xlTypePDF, Filename:=path & "/" & ws.Name
   Next ws
End Sub

Gruß Uwe

[Marcinoy]

Vielen Dank jetzt ist wenigstens nur eine Seite im PDF mit dem richtigen Namen und der richtigen Seite am richtigen Ort. Das Problem mit dem Layout ist jedoch bestehend.

Ich benutze ja Office 365 auf dem Mac. Es scheint, dass aus unerklärlichen Gründen der Druck bzw. die Erstellung eines PDF nicht möglich ist über den „normalen“ Weg, sofern jede Seite andere Einstellungen (bzgl. Seitenränder, Kopf-/ Fusszeilen, Zoom, Orientierung etc.) hat. Mit dem normalen Weg meine ich, die gewünschten Tabellen anwählen und dann einfach drucken. Macht man dies, so übernimmt es das Layout für alle Seiten basierend auf der als erstes ausgewählten Seite. Eigentlich möchte ich gar kein Makro aber in diesem Fall scheint es der einzige Workaround zu sein. Mit dem Druck habe ich es geschafft. Mit diesem Makro wird jede ausgewählte Seite in einem separaten Druckauftrag gedruckt und somit auch das Layout so belassen wie ich es eingestellt haben. Siehe #16
Aber mit dem Pdf Export will es nicht funktionieren so wie ich das Makro programmiert haben. Meine Idee war jede Seite einzeln in den gewünschten Ordner zu exportieren und diese dann extern zu kombinieren. Ist mit ein wenig Mehraufwand verbunden würde aber eigentlich funktionieren. Nur wählt mein Makro dann alle Seiten aus für den Export. Dies wiederum führt zum Problem mit dem Layout. Ich bekomme zwar verschiedene PDF mit dem jeweils richtigen Namen am richtigen Ort aber in allen PDF sind alle seiten drin.

Hoffe ich habe mein Problem verständlicher geschildert

[schauan]

Moin Günter,

:75:

aber in beiden PDF's sind dann beide ausgewählten Seiten und das will ich nicht.

[WillWissen]

Hi,

es ist eigentlich alles gesagt bzw. geschrieben.

Wähle ich aber mehrere gleichzeitig aus, was ich regelmässig tun muss mit jedoch unterschiedlichen Arbeitsmappen (Dateien) und unterschiedlichen Arbeitsblatt, übernimmt mir Excel die Seiteneinstellungen der ersten Seite für alle folgenden. Dies möchte ich natürlich nicht.

[Marcinoy]

Meine Idee ist die Folgende: (Um dies so umzusetzen bin ich jedoch zu wenig versiert in VBA)

1. Die ausgewählten Tabellen werden als Array oder ähnlich (jedoch so dass dies variabel sind) gespeichert.
2. Man kreiert einen Loop oder so, der dann die erste Tabelle auswählt und ein PDF erstellt, welches mit dem Namen der Tabelle am gleichen Ort wie die Exceldatei gespeichert wird.
3. das selbe mit der nächsten Tabelle bis keine Tabellen mehr zur Auswahl stehen.

[schauan]

Hi Günter,
Du hast da nur einen Teil der Aufgabe zitiert ohne Lösung  
Marc, 1. Und 2. macht Uwes Makro. Mit 3. Meinst Du sicher die nächste Datei?

[Marcinoy]

Also ich habe ja eine Excel Datei (Workbook) mit mehreren Seiten/Tabellen (Worksheets)

[Kuwer]

Hallo,

noch ein Versuch:

Sub speichern()
    '
    ' speichern Makro
    '
    ' Tastenkombination: Strg+s
    '
    ' PDF Export Macro
     
    Dim ws As Worksheet
    Dim ssh As Object
    Dim path As String
    
    path = Application.ThisWorkbook.path
    Set ssh = ActiveWindow.SelectedSheets
    For Each ws In ssh
        ws.Select
        ws.ExportAsFixedFormat xlTypePDF, Filename:=path & "/" & ws.Name
    Next ws
    Sheets("Daten").Select
End Sub

Gruß Uwe

[Marcinoy]

Diese Idee hatte ich auch schon. Resultat: Layout wieder nicht korrekt. Sonst alles richtig