Microsoft Excel

Herbers Excel/VBA-Archiv

Einzelnes Tabellenblatt drucken und als pdf speich

Betrifft: Einzelnes Tabellenblatt drucken und als pdf speich von: Uwe Siebers
Geschrieben am: 09.09.2014 17:23:19

Hallo zusammen,

einmal mehr bekomme ich Dank recht bescheidener VBA - Kenntnisse etwas nicht hin. Es geht darum, über ein Makro ein Tabellenblatt einer Arbeitsmappe auszuwählen, auszudrucken sowie in einem bestimmten Pfad (z.B. D:\Dialog\) als pdf-Datei zu speichern. Als Dateiname soll der Name des Tabellenblattes diesen. Dieser soll aber um das aktuelle Tagesdatum beim speichern ergänzt werden.

Der Druckbereich der Tabellenblätter ist fest vorgegeben und ändert sich nicht. Dies noch als Hinweis.

Vielen Dank für Eure Hilfe.

Uwe

  

Betrifft: Ein Tabellenblatt - Druckbereich als PDF... von: Case
Geschrieben am: 09.09.2014 20:53:48

Hallo, :-)

so der Spur nach wird das gerade aktive Tabellenblatt gespeichert - Anpassungen nicht vergessen:

Option Explicit
' Hier Pfad anpassen MIT abschliessendem Backslash
Const strPath As String = "C:\Temp\"
Sub Main()
    ActiveSheet.ExportAsFixedFormat 0, strPath & _
        ActiveSheet.Name & "_" & Format(Now, "DDMMYY"), _
        IgnorePrintAreas:=False, OpenAfterPublish:=True ' Oder False für nicht öffnen
End Sub
Servus
Case



 

Beiträge aus den Excel-Beispielen zum Thema "Einzelnes Tabellenblatt drucken und als pdf speich"