Office: (Office 2000) Drucker via VBA in Access 2000 und Access 2003 wechseln

Hallo,
ich stehe derzeit vor dem Problem, dass ich ein Programm in Access 2000 habe, indem ich den Drucker für einen Berichtsausdruck ändern müsste. Nachdem es das Printer Objekt in Access 2000 noch nicht gibt, habe ich das mit dem AP Druckmanager versucht. Funktioniert unter der Umgebung Access 2000 auch tadellos. Wird das Programm allerdings unter Access 2003 (ich vermute mal unter Access 2002 dasselbe) geöffnet, wird zwar der Standarddrucker geändert, der Ausdruck erscheint aber immer noch auf dem "ehemaligen" Standarddrucker. Die Druckeränderung interessiert Access 2003 also nicht. Weiß jemand eine Lösung, die sowohl unter Access 2000 als auch unter den höheren Versionen funktioniert?

:)

 

Hallo Hubi,

s. mal hier: VB-Printer-Objekt in VBA benutzen

Benötigt aber die VB6-Runtime.

 

Hallo Tommy,
danke für den Hinweis, aber so wie ich das verstanden habe, hilft´s nicht wirklich weiter. Ich habe zumindest keine Einstellung gefunden, mit Hilfe des Printer-Objects auch den Standard-Drucker zu ändern oder habe ich da was übersehen?

 

Unter A2002/2003 lässt sich der Drucker ja so ändern:

Set Application.Printer = Application.Printers("Epson XYZ")

Das führt unter A2000 zu Kompilierfehler, weil es die Eigenschaft .Printer da nicht gibt.
Mit einem kleinen Zusatz kann man das aber abfangen:
Code:

Da VBA nun unter A2000 beim Kompilieren nicht weiß, ob das Object die Eigenschaft Printer kennt, gibt es auch keinen Fehler aus. Erst zur Laufzeit löst es die TypeInfo von Object auf und stellt dann fest, dass es die Eigenschaft nicht gibt. Das aber wird durch On Error Resume Next ignoriert. Ansonsten greift da - je nachdem, wie der eingebunden wird, kenne ihnnicht - der AP-Druckmanager.
Unter A2002/3 hingegen wird der Code anstandslos ausgeführt und der Drucker eingestellt.

Ciao, Sascha

 

Werde ich gleich mal durchtesten. Schon mal Danke!!!

 

Hallo Hubi,

das Bsp im vb@rchiv erstellt eine ActiveX-DLL die nach der Registrierung auch das Printerobject unter A00 zur Verfügung stellt.