|
|
|
Thema:
|
Access 2002 |
| |
Vor allem weniger erfahrene Anwender verstellen
oftmals irrtümlich den Standard-Drucker von Access. Wird dann ein
Bericht ausgedruckt, für den über das Menü Datei-Seite
Einrichten die Option "Standard-Drucker"
eingestellt ist, führt das schnell zu Problemen. In Access 2002 können
Sie hier Abhilfe schaffen, indem Sie über ein "AutoExec"-Makro
den Standard-Drucker beim Start von Access zurücksetzen. Legen Sie
dazu zunächst die Funktion "SetStdPrinter in einem beliebigen
Modul an:
Function SetStdPrinter(strPrinter As
String)
Dim prtNew As Printer
On Error Resume Next
Set prtNew = Printers(strPrinter)
Set Application.Printer = prtNew setzen
End Function
Die Funktion liest das neue Printer-Objekt des gewünschten Druckers
aus der Printers-Auflistung aus und setzt es als Standard-Drucker
ein. Um den Aufruf zu automatisieren, legen Sie ein "AutoExec"-Makro
an und fügen dort die Aktion "AusführenCode" ein oder
ergänzen ein vorhandenes "AutoExec"-Makro um diese
Aktion. Als Parameter "Funktionsname" geben Sie "SetStdPrinter("DruckerName")"
an, wobei Sie "DruckerName" durch den Namen des zu
setzenden Druckers, also beispielsweise "HP DeskJet 710C",
ersetzen. Den genauen Namen können Sie am einfachsten über das Menü
Datei-Drucken aus der Liste
"Name" ermitteln.
Beim Start von Access wird dann automatisch das Makro "AutoExec"
ausgeführt, das die Funktion "SetStdPrinter()" mit dem
Namen des zu setzenden Druckers aufruft. Die Funktion können Sie
natürlich auch von anderen Stellen aus aufrufen, um den
Standard-Drucker je nach Bedarf neu zu setzen. Wenn Sie
beispielsweise ein "Menü"-Formular für den Abruf von
Berichten einsetzen, könnten Sie dort in der Ereignisprozedur
"Beim Laden" den Aufruf wie folgt einbauen:
Sub Form_Load()
Dim R As Variant
...
R = SetStdPrinter("HP DeskJet 710C")
...
End Sub
|
|
