Druckernamen ermitteln nach Druckerwechsel

[bahasu]

Hallo,

Wie kann ich, wenn ich im Preview-Modus eines Berichtes bin und die Druckereinstellungen von Drucker x auf den Drucker y umstelle, den Namen des neu eingestellten Druckers via VBA ermitteln?

Harald

[Hondo]

Hallo,
geht so:
MsgBox Application.Printer.DeviceName

Gruß Andreas

[bahasu]

Hi,

danke für die Rückmeldung.

MsgBox Application.Printer.DeviceName

Diese Anweisung hatte ich bereits versuchsweise im Ereignis "Bei Seite" bzw. bei "Berichtskopf_Format" getestet. Das Ergebnis war leider, dass der neu eingestellte Drucker erst nach Verlassen der Preview-Sicht und erneutem Aufruf des Previews korrekt angezeigt wurde.

In welchem Ereignis ist diese Anweisung dann zu plazieren, damit ich im Preview-Modus die Änderung mitbekomme?

Harald

[Hondo]

Hallo
im Preview Modus wird die Änderung nicht registriert.
Das passende Ereignis wäre Report_Resize

Gruß Andreas

[Hondo]

Funktioniert bei mir aber nicht.
wie änderst du den Drucker?
Über Seite Einrichten, spezieller Drucker...?

[bahasu]

Hi Andreas,

wie änderst du den Drucker?
Über Seite Einrichten, spezieller Drucker...?

genau so erfolgt die Änderung des Druckers. Das dabei ausgelöste Ereignis "Berichtskopf_Format" zeigt dann immer noch den zuvor eingestellten Drucker.

Harald

[database]

Hallo Harald,

hast du da schon mal reingeschaut?

http://www.donkarl.com/?FAQ5.1

[bahasu]

Hi Peter,

ja dort und an vielen Stellen habe ich bis zum Abwinken reingeschaut.
Mittlerweile habe ich auch gefunden, dass auch andere Leute diese Fragestellung hatten.
Laut denen würde access die Änderung "irgendwo" abspeichern, man käme aber nicht daran.


Mein Lösung sieht nun so aus, dass der Aufruf von "Seite einrichten" jetzt nicht mehr via dem Menüpunkt sondern mit einem neuen Menüpunkt und den Zeilen geschieht:
    On Error Resume Next                ' notwendig, wenn die Aktion mit ESC abgebrochen wurde
    DoCmd.RunCommand acCmdPageSetup

Danach wird der Report geschlossen und dann neu geöffnet.
Jetzt ist mit Reports!MeinBericht.Printer.DeviceName
der geänderte Druckernamen feststellbar.


Harald