VBA PrintOut Methode

[matthias edegger]

Hi Leitln!

ich habe mit vba ein Makro geschrieben, das eine Seite
einrichtet, anpasst und ausdruckt. soweit so gut
die Zeile für das drucken lautet:
Sheets("data export").PrintOut

in diesem Fall wird der Standarddrucker verwendet, wie
kann man das Drucker Menü einblenden, damit man den
Drucker auswählen kann. (wie wenn man auf Datei-drucken
geht!)
In der Hilfe habe ich zwar einige Optionen für printout
gefunden, aber die richtige war nicht dabei. Vielleicht
gib es ja eine versteckte Methode oder so!

Danke
mfg

[Werner]

Hi Matthias,

nachfolgender Code sollte funktionieren unter XL8

Private Sub cmdChangePrinter_Click()
Me.Hide
Application.Dialogs(xlDialogPrinterSetup).Show
lblPrinter.Caption = Application.ActivePrinter
Me.Show
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Activate()
lblPrinter.Caption = Application.ActivePrinter
End Sub


Grüße Werner


"matthias edegger" <***@ceram.net> schrieb im Newsbeitrag news:05c901c34c30$9c009190$***@phx.gbl...
Hi Leitln!

ich habe mit vba ein Makro geschrieben, das eine Seite
einrichtet, anpasst und ausdruckt. soweit so gut
die Zeile für das drucken lautet:
Sheets("data export").PrintOut

in diesem Fall wird der Standarddrucker verwendet, wie
kann man das Drucker Menü einblenden, damit man den
Drucker auswählen kann. (wie wenn man auf Datei-drucken
geht!)
In der Hilfe habe ich zwar einige Optionen für printout
gefunden, aber die richtige war nicht dabei. Vielleicht
gib es ja eine versteckte Methode oder so!

Danke
mfg

[stefan onken]

hallo Matthias,

Application.Dialogs(xlDialogPrint).Show

Gruß
stefan

-----Originalnachricht-----
Hi Leitln!
ich habe mit vba ein Makro geschrieben, das eine Seite
einrichtet, anpasst und ausdruckt. soweit so gut
Sheets("data export").PrintOut
in diesem Fall wird der Standarddrucker verwendet, wie
kann man das Drucker Menü einblenden, damit man den
Drucker auswählen kann. (wie wenn man auf Datei-drucken
geht!)
In der Hilfe habe ich zwar einige Optionen für printout
gefunden, aber die richtige war nicht dabei. Vielleicht
gib es ja eine versteckte Methode oder so!
Danke
mfg
.

[Werner]

Noch mal ich :-)

und unter Excel 2002 schaut es so aus:

Private Sub cmdChangePrinter_Click()
Me.Hide
Application.Dialogs(xlDialogPrint).Show
lblPrinter.Caption = Application.ActivePrinter
Me.Show
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Activate()
lblPrinter.Caption = Application.ActivePrinter
End Sub


Viel Spass damit :-)

Greetings
Werner




"matthias edegger" <***@ceram.net> schrieb im Newsbeitrag news:05c901c34c30$9c009190$***@phx.gbl...
Hi Leitln!

ich habe mit vba ein Makro geschrieben, das eine Seite
einrichtet, anpasst und ausdruckt. soweit so gut
die Zeile für das drucken lautet:
Sheets("data export").PrintOut

in diesem Fall wird der Standarddrucker verwendet, wie
kann man das Drucker Menü einblenden, damit man den
Drucker auswählen kann. (wie wenn man auf Datei-drucken
geht!)
In der Hilfe habe ich zwar einige Optionen für printout
gefunden, aber die richtige war nicht dabei. Vielleicht
gib es ja eine versteckte Methode oder so!

Danke
mfg