Access-o-Mania

Access-Forum (Deutsch/German) => Bericht => Thema gestartet von: bahasu am Januar 09, 2014, 10:25:55

Titel: Druckernamen ermitteln nach Druckerwechsel
Beitrag von: bahasu am Januar 09, 2014, 10:25:55
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
Titel: Re: Druckernamen ermitteln nach Druckerwechsel
Beitrag von: Hondo am Januar 09, 2014, 11:34:07
Hallo,
geht so:
MsgBox Application.Printer.DeviceName

Gruß Andreas
Titel: Re: Druckernamen ermitteln nach Druckerwechsel
Beitrag von: bahasu am Januar 09, 2014, 11:44:55
Hi,

danke für die Rückmeldung.

Zitat von: Hondo am Januar 09, 2014, 11:34:07
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
Titel: Re: Druckernamen ermitteln nach Druckerwechsel
Beitrag von: Hondo am Januar 09, 2014, 11:50:07
Hallo
im Preview Modus wird die Änderung nicht registriert.
Das passende Ereignis wäre Report_Resize

Gruß Andreas
Titel: Re: Druckernamen ermitteln nach Druckerwechsel
Beitrag von: Hondo am Januar 09, 2014, 11:57:21
Funktioniert bei mir aber nicht.
wie änderst du den Drucker?
Über Seite Einrichten, spezieller Drucker...?
Titel: Re: Druckernamen ermitteln nach Druckerwechsel
Beitrag von: bahasu am Januar 09, 2014, 12:25:47
Hi Andreas,
Zitat von: Hondo am Januar 09, 2014, 11:57:21
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
Titel: Re: Druckernamen ermitteln nach Druckerwechsel
Beitrag von: database am Januar 11, 2014, 08:30:24
Hallo Harald,

hast du da schon mal reingeschaut?

http://www.donkarl.com/?FAQ5.1 (http://www.donkarl.com/?FAQ5.1)
Titel: Re: Druckernamen ermitteln nach Druckerwechsel
Beitrag von: bahasu am Januar 11, 2014, 11:16:25
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