Akalierung bei PDF-Export ignorieren
31.01.2022 15:34:55
Florian
ich exportiere mit folgendem Code einige Tabellenblätter meiner Arbeitsmappe. Das funktioniert so weit alles, bis auf die Anzeige des fertigen Dokuments im Adobe Reader. Darin werden die Seiten in verschiedenen Größen angezeigt, obwohl alle A4 sind.
Sub PDFAusgeben()
Dim arrTabellen() As String
Dim varDateiname As Variant
varDateiname = Application.GetSaveAsFilename(FileFilter:="PDF (*.pdf), *.pdf", Title:="PDF speichern")
ReDim arrTabellen(1 To 13)
arrTabellen(1) = "Tabelle 1"
arrTabellen(2) = "Tabelle 2"
arrTabellen(3) = "Tabelle 3"
arrTabellen(4) = "Tabelle 4"
arrTabellen(5) = "Tabelle 5"
arrTabellen(6) = "Tabelle 6"
arrTabellen(7) = "Tabelle 7"
arrTabellen(8) = "Tabelle 8"
arrTabellen(9) = "Tabelle 9"
arrTabellen(10) = "Tabelle 10"
arrTabellen(11) = "Tabelle 11"
arrTabellen(12) = "Tabelle 12"
arrTabellen(13) = "Tabelle 13"
DruckbereicheFestlegen
Application.ScreenUpdating = False
If varDateiname False Then
tblDeckblatt.Visible = xlSheetVisible
Sheets(arrTabellen).Select
Sheets(arrTabellen(1)).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=varDateiname, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
tblDeckblatt.Visible = xlSheetVeryHidden
Else
MsgBox "Die Datei wurde nicht gespeichert.", vbExclamation, "PDF speichern"
End If
Sheets("Tabelle 1").Select
Application.ScreenUpdating = True
MsgBox "Der Bericht wurde erfolgreich gespeichert.", vbInformation, "PDF speichern"
End Sub
Kann man das irgendwie verhindern? Wie könnte ich das lösen?
Da es ziemlich viele Seiten aus vielen Tabellenblättern in der PDF sind, sieht es im Moment wie Kraut und Rüber aus :D
Danke euch!!