PDF Druck
09.03.2006 16:29:45
Rainer
ich habe ein Problem beim PDF Drucken.
Es handelst sich um folgende Function:
Private Function PrintToPDF(strPath As String, strFileName As String)
Dim objDistiller As New ACRODISTXLib.PdfDistiller
objDistiller.bShowWindow = False
ActiveWorkbook.PrintOut PrintTofile:=True, _
PrtoFilename:=strPath & strFileName & ".ps"
objDistiller.FileToPDF strPath & strFileName & ".ps", _
strPath & strFileName & ".pdf", ""
Kill strPath & strFileName & ".ps"
Set objDistiller = Nothing
End Function
Die Variable "strFileName" übergebe ich aus einer Prozedur. Dieses funktioniert auch. Nur beim umwandeln in die Postscript git es eine Fehlermeldung "Excel kann nicht drucken".
Vergebe ich in der Function den den Namen, wie z.b strFileName="Rainer" funktioniert alles und die PDF wird im richtigen Pfad mit dem Namen Rainer abgelegt.
Kann mir hier jemand helfen. Was mache ich falsch?
Gruß
Rainer
Anzeige