Drucken mit VBA

[HKindler]

Hi,

dann aber nicht beschweren, wenn irgendwann auch noch Zeile 100 ausgedruckt wird! Korrekt wäre

Code:

Sub DruckeBereich()
With Range("A1:G90")
    .PrintOut Copies:=1
    'Tabelle als PDF speichern
    .ExportAsFixedFormat xlTypePDF, Filename:="C:\Users\................\" & .Worksheet.Name & ".pdf"
End With
End Sub

Beachte, dass hier beim Druck und beim Export derselbe Range verwendet wird.
Statt ActiveSheet habe ich hier Range.Worksheet verwendet. Dann ist auch dies konsistent.

[RPP63]

Ich bin ernsthaft etwas geschockt!
Da schreibe ich viermal grob (also windmühlenartig) das Gleiche, werde dankenswerter Weise von Helmut unterstützt und …
… Lerneffekt gleich Null!
Da überlegt man (also ich) doch, ob zukünftige Hilfe für @Ubi5 überhaupt Sinn macht.

[schauan]

Hallöchen,

Lerneffekt gleich Null

solange es funktioniert ...

[Kuwer]

Hi Ralf,

die gestellte Frage ("nur der Name des Tabellenblattes fehlt mir noch! ") hattest Du nicht beantwortet. Der TE fand die Antwort selbst heraus und war zufrieden.

Gruß Uwe