Excel Tabellenblätter als PDF speichern (in bestehenden Code)
Hallo zusammen,
habe mir über eine UserForm eine Druckvorschau erstellt.
Ich möchte allerdings keine Druckvorschau haben, sondern das ein entsprechendes PDF gedruckt wird und dieses in den gleichen Ordner abgelegt wird wo die Excel Arbeitsmappe liegt.
Wie muss ich den Code anpassen?
habe mir über eine UserForm eine Druckvorschau erstellt.
Ich möchte allerdings keine Druckvorschau haben, sondern das ein entsprechendes PDF gedruckt wird und dieses in den gleichen Ordner abgelegt wird wo die Excel Arbeitsmappe liegt.
Wie muss ich den Code anpassen?
Private Sub CB_Druckvorschau_Click()
'Variable definieren
Dim Blattname As String
'Prüfen welches Tabellenblatt in der ComboBox ausgewählt wurde
If ComboBoxBlatt.Value = "Bedienkräfte" Then
Blattname = "Bedienkräfte"
Else
Blattname = "Leckluft"
End If
If OB_Hochformat.Value = True Then
Sheets(Blattname).PageSetup.Orientation = 1
Else
Sheets(Blattname).PageSetup.Orientation = 2
End If
If CheckBoxAnpassen.Value = True Then
Sheets(Blattname).PageSetup.Zoom = False
Sheets(Blattname).PageSetup.FitToPagesWide = 1
Sheets(Blattname).PageSetup.FitToPagesTall = 1
Else
Sheets(Blattname).PageSetup.Zoom = False
Sheets(Blattname).PageSetup.FitToPagesWide = False
Sheets(Blattname).PageSetup.FitToPagesTall = False
End If
'UserForm schließen
Me.Hide
'Druckvorschau
Sheets(Blattname).PrintPreview
End Sub
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 63731193511
Url: https://administrator.de/en/excel-tabellenblaetter-als-pdf-speichern-in-bestehenden-code-63731193511.html
Ausgedruckt am: 25.12.2024 um 19:12 Uhr
7 Kommentare
Neuester Kommentar
Ersetze mal
durch
Der PDF-Dateiname müsste noch Deinen Wünschen angepasst werden.
BG BM
Sheets(Blattname).PrintPreview
durch
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\Excel-File.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
Der PDF-Dateiname müsste noch Deinen Wünschen angepasst werden.
BG BM
Hallo,
das ist kein großes Hexenwerk, du must nur ActiveWorkbook durch dein Sheet ersetzen.
Sollte ungetesteterweise so gehen:
das ist kein großes Hexenwerk, du must nur ActiveWorkbook durch dein Sheet ersetzen.
Sollte ungetesteterweise so gehen:
Sheets(Blattname).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\Excel-File.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
N'Abend,
hier ein Beispiel für die Integration des Dateinamens der Excel-Datei:
Das kannst Du natürlich nach Deinen Bedürfnissen anpassen, Du hast ja schon die Blattnamen, kannst zur Unterscheidung Datum/Zeit ergänzen ...
... sollte klappen.
BG BM
hier ein Beispiel für die Integration des Dateinamens der Excel-Datei:
Dim Datei_Name As String
Datei_Name = ThisWorkbook.Name & ".pdf"
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Datei_Name, Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
Das kannst Du natürlich nach Deinen Bedürfnissen anpassen, Du hast ja schon die Blattnamen, kannst zur Unterscheidung Datum/Zeit ergänzen ...
... sollte klappen.
BG BM