Sub NurPDF()
Application.ScreenUpdating = False
'HINWEIS PDF-SPEICEHRDIALOG
Auswahlangabe2 = MsgBox("Wählen sie im folgenden Dialog den Pfad und den Dateinamen für das PDF- _
File aus", vbOKOnly, "SPEICHERORT PDF-FILE")
*************Application.ActivePrinter = "CutePDFWriter auf CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Tabelle3").Select
Cells.Select
Selection.Clear
Range("A1").Select
Application.ScreenUpdating = True
Sheets("Tabelle1").Select
Range("A1").Select
End Sub
Funktionsweise:
Speichert eine Excelliste als .pdf ab und benutzt dazu den Drucker CutePDFWriter (so ne art virtueller drucker, der ein pdf erstellt.).
Problem:
Ich hab dieses "Programm" auf meinem Computer erstellt. Dort funktioniert das wunderbar. Dann habe ich das Programm auf einen Laptop übertragen, der (auch unter CPW2:) ebenfalls den CutePDFWriter hat.
Dort bricht das Makro mit einer Fehlermeldung ab und hält bei der mit ********** bezeichneten Stelle an.
Die Fehlermeldung lautet: "Laufzitfehler 1004: Die Methode ActivePrinter für das Objekt _Application ist fehlgeschlagen"
Wo liegt der Fehler und kann man ihn allgemein beheben, so dass er auf dem Laptop wie auf dem normalen Computer funktioniert?
Ich hoffe, das Problem diesesmal klar geschildert zu haben.
Gruss
Rolf