ohne Select (?)
01.10.2013 15:38:54
eres
mein Versuch, 3 Blätter eines Workbooks als pdf-File zu exportieren scheitert bei folgendem Versuch:
Sheets(Array("Blatt1", "Blatt2", "Blatt3")).ExportAsFixedFormat _
Type:=xlTypePDF, Filename:= "C:\PDF-Datei.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets(Array("Blatt1", "Blatt2", "Blatt3")).Select
Sheets("Blatt1").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\PDF-Datei.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Bedanke mich schon jetzt für jede Hilfe im voraus.
Gruß
erwin
Anzeige