Einzelnen Beitrag anzeigen
Alt 11.03.2018, 21:25   #16
R J
MOF Meister
MOF Meister
Standard

Zitat:

Ne, tut mir leid, er speichert immer nur das erste Arbeitsblatt.

...vermutlich, weil Du nur das erste ausgewählt hast. Im Code steht ja,
Code:

For Each wks In ActiveWindow.SelectedSheets
(nimm alle ausgewählten Blätter. )

Wenn Du alle, ohne Rücksicht auf Verluste haben willst, dann so:

Code:

Sub Print_Each_Sheet_as_PDF()

    Dim wks As Worksheet
    For Each wks In ThisWorkbook.Worksheets
       If wks.UsedRange.Cells.Count > 1 Then _
            wks.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
             Environ("userprofile") & "Desktop" & wks.Name & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next wks
End Sub
Und! Dein Angebot mit der Spende nehme ich ernst. Hier kannst Du Deinen Worten auch Taten folgen lassen. Du darfst durchaus großzügig sein....

__________________

Ciao, Ralf

Kommt mir irgendwie bekannt vor...
Auf, zum Markplatz der Ideen!
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben.
Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.



Geändert von R J (11.03.2018 um 21:37 Uhr).
R J ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten