Drucker umstellen

02/07/2008 - 17:29 von Christian Fette | Report spam
Hallo,

wenn ich - wie in der FAQ 5.1 beschrieben - mit

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

den Drucker umstellen möchte, erhalte ich die Fehlermeldung

5
Ungültiger Prozeduraufruf oder ungültiges Argument


Folgender Code wird verwendet:


sString = "Reports!" & strDocName

'Standarddrucker sichern
Application.Printer = Application.Printers("'" & Me.cboPrinter & "'")


DoCmd.OpenReport strDocName, acViewNormal, , , acHidden
Set rpt = sString
With rpt.Printer
.DUPLEX = acPRDPVertical
.Copies = Me.nCopies
End With
DoCmd.OpenReport strDocName, acViewNormal
DoCmd.Close acReport, strDocName, acSaveNo


Wer weiß Rat?

Gruß
Chr.

www.segler-in-holland.de .:. Das Infoportal für den Wassersport in den Niederlanden
www.segler-in-holland.de/forum .:. Das passende Forum dazu
 

Lesen sie die antworten

#1 Gunter Avenius
02/07/2008 - 17:34 | Warnen spam
Hallo Christian,

Christian Fette schrieb folgendes:
wenn ich - wie in der FAQ 5.1 beschrieben - mit

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

den Drucker umstellen möchte, erhalte ich die Fehlermeldung

5
Ungültiger Prozeduraufruf oder ungültiges Argument

Folgender Code wird verwendet:


sString = "Reports!" & strDocName

'Standarddrucker sichern
Application.Printer = Application.Printers("'" & Me.cboPrinter & "'")



lass mal die Hochkommas weg.
Application.Printer = Application.Printers(Me.cboPrinter)

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

Ähnliche fragen