Drucken mit VBA

[Ubi5]

Hallo, wer kann mir bitte weiterhelfen - tieferstehendes Makro funktioniert einwandfrei - ich möchte aber, dass dieser Druckbereich auch als pdf.Datei in einen gesonderten Ordner gespeichert wird - habe bis dato leider keinen Erfolg.
Lg Ubi5

Sub DruckeBereich()
Range("A1:B5").PrintOut Copies:=1
End Sub

[RPP63]

Moin!
Schaue Dir folgendes an:
Range.ExportAsFixedFormat-Methode

Gruß Ralf

[Ubi5]

Hallo RPP63 - danke für den Hinweis!
Mein Problem ist, dass die sämtlichen Tabellenblätter gedruckt werden und nicht nur das einzelne.
Die Datei besteht aus 30 Tabellen.

Wie kann ich das lösen?

Sub PDFDatei()
'Tabelle als PDF speichern

ThisWorkbook.ExportAsFixedFormat xlTypePDF, _
Filename:="C:\Users\........\NeuesPDF.pdf"

End Sub

[HKindler]

Hi,

wieso verwendest du Workbook.ExportAsFixedformat wenn Ralf dir Range.ExportAsFixedformat empfiehlt? Und dann wunderst du dich, dass zu viel gedruckt wird?

[RPP63]

Mein Problem ist, dass die sämtlichen Tabellenblätter gedruckt werden und nicht nur das einzelne.
Die Datei besteht aus 30 Tabellen.

[Edit] Oops, zu spät! [/Edit]
Es gibt 3 .ExportAsFixedFormat-Methoden
• Workbook. …
• Worksheet. …
• Range. …

Ich benutze .Range, und Du?

[Ubi5]

Hallo,

für das ausgewählte Tabellenblatt!

ActiveSheet.ExportAsFixedFormat xlTypePDF, _

Filename:="C:\Users\........\?????????.pdf"

nur der Name des Tabellenblattes fehlt mir noch!

[RPP63]

Lies Dir meine letzte Antwort noch mal in Ruhe durch …

Aber Du bist ja auf dem richtigen Weg:
Workbook → Worksheet → Range
Du darfst (und solltest) korrekt referenzieren!

[Ubi5]

Erledigt - funktioniert!

Sub PDFDatei()
'Tabelle als PDF speichern

ActiveSheet.ExportAsFixedFormat xlTypePDF, _
Filename:="C:\Users\........................\" & ActiveSheet.Name & Range("a1") & ".pdf"

End Sub


Danke!

[RPP63]

Du bist aber immer noch nicht beim Range("A1:B5") aus der Threaderöffnung.
Außerdem ist ActiveSheet ein Zufallstreffer.
Mit korrekter Referenzierung meinte ich so etwas (und hoffte, dass Du das verinnerlichst):

Workbooks("DieDatei.xlsm").Worksheets("Rhabarber").Range("A1:B5").ExportAsFixedFormat …

Gruß Ralf

[Ubi5]

Funktioniert - Danke für die Unterstützung!
Lg Ubi5


Sub DruckeBereich()
Range("A1:G90").PrintOut Copies:=1
'Tabelle als PDF speichern

ActiveSheet.ExportAsFixedFormat xlTypePDF, _
Filename:="C:\Users\................\" & ActiveSheet.Name & ".pdf"

End Sub