PDF Export
17.04.2014 08:43:59
Dokadan
Ich habe eine variierende Anzahl an Sheets. Auf diesen Sheets werden unter Anderem Bilder eingefügt. Ich würde gerne alle Sheets in ein oder mehrere PDF's exportieren.
Das funktioniert auch bereits ganz ok (s. Code), doch die Bilder werden rechts abgeschnitten (in der PDF-Datei). Gibt es eine Möglichkeit die Dateien z.B. im Querformat zu exportieren? Oder eine bessere Alternative?
Sub Export()
Dim wb As Excel.Workbook
Dim sh As Excel.Worksheet
Dim i As Integer, sheets As Integer
Set wb = ActiveWorkbook
sheets = wb.sheets.Count
For i = 1 To sheets
wb.sheets(i).ExportAsFixedFormat _
Type:=xlTypePDF, _
fileName:="\\ocn.ottogroup.com\r\otto\hh\user\MABEND\Desktop\Report_Tool\Report" _
& wb.sheets(i).Name & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
From:=1, To:=1, _
OpenAfterPublish:=False
Next
i = i - 1
MsgBox (i & " Blätter exportiert")
End Sub
Anzeige