Laufzeitfehler 1004 bei Makro Dateiausdruck
02.04.2007 17:07:00
Paddy
ich habe ein makro programmiert dass mir eine excel datei druckt. hierbei entsteht jedoch immer der gleiche fehler: laufzeitfehler 1004: die methode active printer für das objekt '_application' ist fehlgeschlagen. was passiert hier? hat das etwas mit dem druckerpool zu tun. die namen der drucker stimmen nämlich. würde mich freuen wenn ihr mir einw enig helfen könntet!
hier noch das makro:
Dim pool As String
pool = "Ne02:"
On Error GoTo fehler
Select Case drucker
Case 0
Application.ActivePrinter = "\\DEWELPAGPT02\HDR27139_PCL auf" & pool
Case 1
Application.ActivePrinter = "\\DEWELPAGPT02\HDR46685_PCL auf" & pool 'hier ist der fehler und das
Case 2 makro stoppt
Application.ActivePrinter = "Adobe PDF Printer auf Ne00:"
End Select
dtest = True
Exit Function
fehler:
pool = "Ne03:"
On Error GoTo fehler2
Select Case drucker
Case 0
Application.ActivePrinter = "\\DEWELPAGPT02\HDR27139_PCL auf " & pool
Case 1
Application.ActivePrinter = "\\DEWELPAGPT02\HDR46685_PCL auf " & pool
Case 2
Application.ActivePrinter = "Adobe PDF auf Ne00"
End Select
dtest = True
Exit Function
fehler2:
MsgBox "Bitte Druckerpool prüfen und Makro anpassen. 'Ne02/03' scheint nicht vorzuliegen", vbOKOnly, "Druckerfehler"
dtest = False
End Function