"Ungültiger Prozeduraufruf oder Argument" beim Festlegen des Druckerobjekts

Question

Ich habe eine VB6-Anwendung, die den Fehler 5 "Ungültiger Prozeduraufruf oder ungültiges Argument" gibt, wenn das Programm versucht, das Printer-Objekt auf einen bestimmten Drucker aus der Printers-Auflistung festzulegen . Bei dem fraglichen Drucker handelt es sich um eine Art Kopierer/Drucker, der über einen Druckserver läuft. Der Fehler tritt nicht auf, wenn das Printer-Objekt auf andere in der Sammlung definierte Drucker festgelegt wird. Irgendwelche Ideen, was den Fehler 5 in diesem Fall verursachen könnte? Ich bin mir nicht sicher, was genau passiert, wenn ich die Anweisung "Set Printer = x" in VB6 verwende - versuche ich zu diesem Zeitpunkt mit dem eigentlichen Druckertreiber zu interagieren? Ist es möglich, dass der Treiber vom VB6-Druckerobjekt aus irgendeinem Grund nicht als gültiger Drucker erkannt wird, was zu dem Fehler "ungültiges Argument" führt?

Answer 1

Der „ungültige Prozedur-Aufruf oder Argument“ ist für einen VB-Laufzeitfehler 5.

Ich vermute, dass der Fehler 5 Sie sehen, der Fehlercode Win32 ist, das bedeutet „Zugriff verweigert“.

Scheinbar VB Laufzeitfehler unterscheiden sich von Win32-Fehler - ich vermute, dass es mit den Wurzeln von VB vor MS-DOS vorgeht: http://blogs.msdn.com/ericlippert/archive/2004/09/09/227461.aspx. Ich bin nicht sicher, wie Sie bestimmen sollten, welche Interpretation zu verwenden, wenn

Answer 2

Sie verwenden Code wie folgt, um es richtig einzustellen? Nicht nur versuchen, es an einer Zeichenfolge festzulegen?

Dim strDeviceName As String 
    Dim prnCurrent As Printer 

    For Each prnCurrent In Printers 

     If UCase$(prnCurrent.DeviceName) = strDeviceName Then 

     Set Printer = prnCurrent 

     Exit For 

     End If 

    Next prnCurrent 

Um den Standarddrucker nicht mehr zu ändern, führen Sie diesen Code vor dem Einrichten des Druckers aus. Dann müssen Sie den Standarddrucker nicht zurücksetzen. Dies macht auch Ihre Druckerauswahl einzigartig für Ihr Programm, was die meisten Leute wollen.

' deassociate printer object from default system printer 
Printer.TrackDefault = False 

Answer 3

Sie können einen Blick auf die folgende Seite nehmen wollen:

http://support.microsoft.com/kb/322710

Jedes Mal, wenn in VB6 Druck ich immer verwenden dieses Dialogfeld anstelle des gemeinsamen Dialogfeld, das mit VB6 kommt. Es ist viel zuverlässiger.

Answer 4

Ich habe dieses Problem in MS Access 2007 VBA gelöst, indem Sie den Servernamen zusammen mit dem Druckernamen einschließen.

Application.Printer = Application.Printers("\\servername\printername") 

statt

Application.Printer = Application.Printers("printername") 

Hoffnung hilft dies jemand anderes.

Answer 5

Ich bekam diesen Fehler und nach ein paar Stunden der Frustration fand meine Antwort. Es handelte sich um ein Problem, bei dem die Groß-/Ich hatte ein Capital "S", als ich einen Kleinbuchstaben "s" hätte haben sollen. So

wenn sah der Code wie folgt:

XeroxReport = "\\Share\Red Xerox 430" 
Set Application.Printer = Application.Printers(XeroxReport) 

Ich würde erhalten Fehler 5

Aber wenn ich es geändert:

XeroxReport = "\\share\Red Xerox 430" 
Set Application.Printer = Application.Printers(XeroxReport) 

presto arbeitete es