PDF-Druckbereich einschränken
27.08.2015 14:41:08
Conelius
Da ich in in dem Arbeitsblatt im rechten Bereich außerhalb der Seitenbreite Buttons habe, werden im PDF hierzu zusätzliche Seiten erzeugt, die ich allerdings vermeiden möchte.
Sub Test()
Dim pdfName As String
pdfName = "XYZ.pdf"
Sheets("Protokoll").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=True
End Sub
Cornelius
Anzeige