Hi,
ich versuche auf Win10 Home 64 unter Excel 2016 ein Scoresheet per Makro als PDF zu speichern.
Dazu folgendes sub:
Sub PDFPrint()
'
' Keys: Strg+p
'
Sheets("Scorecard").Select
strTargetDir = "c:\Temp\FAS\"
ChDir (strTargetDir)
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$59"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="FAS_" & Range("Scorecard!C4").Value & ".pdf", _
Quality:=xlQualityStandard, _
IncudeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Sheets("Scorecard").Select
End Sub
Leider bricht das Makro mit der Meldung: "Laufzeitfehler 1004", Anwendungs- oder objektdefiierter Fehler ab. Im Debug-Modus stehe ich bei:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="FAS_" & Range("Scorecard!C4").Value & ".pdf", _
Quality:=xlQualityStandard, _
IncudeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Herzlichen Dank für Hilfe!
LG,
Ernst
|