Office: Druckeinstellungen im Backstage Bereich per VBA festlegen

Hi,

ich habe folgendes Problem: Mit Hilfe von 3 Buttons (kein Problem) möchte ich die Backstage Ansicht über "Datei > Drucken" öffnen und in den Druckeinstellungen jeweils die (Vor)Einstellung
a) Aktive Tabellen drucken
b) Gesamte Arbeitsmappe drucken
c) Auswahl drucken

per VBA auswählen.

Frage: Wie geht das ?

Gruß
TT

:)

 

Hallo,

das sind genau drei Anweisungen:

a) ActiveSheet.PrintOut
b) ThisWorkbook.PrintOut
c) Selection.PrintOut

 

Hallo!

Das Backstage-View lässt sich nicht per VBA ansprechen. Allenfalls den altbekannten Druckdialog kannst Du nutzen. Im folgenden Beispiel wird die aktive Tabelle 6 mal gedruckt bzw. als Auswahl übergeben.

Application.Dialogs(xlDialogPrint).Show arg4:=6, arg12:=2

Aber wie Nepumuk schon schrieb geht das auch ohne Druckdialog. Der Makrorekorder hilft Dir.

Gruß, René

 

So mein ich das nicht,

ich will vor dem Druck in eben dieser Backstageansicht (Voreinstellung bereits voreingenommen) landen, das Sheet (die Sheets) nochmal sehen und ggf. auch noch den Drucker ändern oder seitenlayouttechnische Änderungen vornehmen können.

Gruß
TT

 

Danke mumpel,

der Dialog ist es leider auch nicht. Der Button, den man in die QAT ziehen kann heißt "PrintPreviewAndPrint". Kann man denn den nicht irgendwie 'ansprechen'?

Gruß
TT

 

Hallo,

Anzeigen ist kein Problem:

Public Sub test()
Call Application.CommandBars.ExecuteMso("PrintPreviewAndPrint")
End Sub

Was nicht geht sind irgendwelche Voreinstellungen.

 

Application.CommandBars.ExecuteMso "PrintPreviewAndPrint" Man kann aber keine Parameter übergeben.

 

Das sind klare Aussagen - schade, dass man keine Parameter übergeben kann ... *frown.gif*

Danke
TT