Hallo Zusammen
Ich habe bei meinem Makro das Problem, dass ich das PDF auf zwei Seiten drucken müsste und ohne Ränder.
Bei meinem momentanen Makro speichert es mir ein "normales"PDF auf einer Seite ab.
Wie kann ich das ändern?
Das Makro speichert lediglich 5 Tabellenblätter als PDF und legt sie in einem definierten Pfad ab (im sheet "mail" range B18) ab.
Über einen Vorschlag wäre ich sehr froh.
Hier der VBA-Code:
Sub Makro2()
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")).Select
Sheets("Tabelle1").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4", _
"Tabelle5")).Select
Sheets("Tabelle1).Activate
Dim Dateiname As String
Dim dialog As Object
Dim pfad As String
Dim datei As String
pfad = Sheets("mail").Range("B18")
Set dialog = Application.FileDialog(msoFileDialogSaveAs)
With dialog
.InitialFileName = pfad & datei
.Show
End With
If dialog <> False Then dialog.Execute
Dateiname = Sheets("mail").Range("B14")
Sheets("Tabelle1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, Quality:=x1qualitystandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
|