vba makro
16.06.2005 16:23:49
Manfred
ich habe ein Problem mit einer Excel Datei aus der eine PDF_Datei erzeugt werden soll. Bei der PDF Erzeugung bekomme ich nachher 4 pdf-dateien heraus und ich werde während der pdf-erzeugung 4 mal nach dem Dateinamen und dem Dateiort zum speichern gefragt. die excel datei besteht aus 19 tabellenblättern. seit dem ein tabellenblatt mal gelöscht und wieder neu eingefügt wird genau für dieses blatt am anfang und am ende der speichername abgefragt. so dass ich dieses tabellenblatt quasi als ausschnitt als eigene pdf-datei erhalte ebenso wurden am schluss 2 tabellblätter eingefügt die auch einzeln als pdf-datei herauskommen. das makro zum erstellen der pdf-datei sieht wie folgt aus.
Sub PDF_erstellen()
Dim sPrinter, prtcmd, Drucker As String
Application.ScreenUpdating = False
sPrinter = Application.ActivePrinter
Application.ActivePrinter = "Acrobat PDFWriter auf LPT1:"
prtcmd = Evaluate("=Dateiname_pdf")
Drucker = Application.ActivePrinter
Application.SendKeys (prtcmd), True
Application.SendKeys "{ENTER}", True
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:=Drucker
Application.ActivePrinter = sPrinter
Application.ScreenUpdating = True
' MsgBox "Datei " & prtcmd & " erstellt!"
End Sub
kann mir da jemand helfen? danke im voraus.