Herbers Excel-Forum - das Archiv

Dialogfenster Drucken mit Vorauswahl starten

Bild

Betrifft: Dialogfenster Drucken mit Vorauswahl starten
von: Marc81

Geschrieben am: 18.12.2006 11:17:54
Hallo Zusammen
Gibt es eine Möglichkeit das "Dialogfenster Drucken" mit einer Vorauswahl zu starten? Ich möchte z.B. "Gesamte Arbeitsmappe" drucken und "Anzahl der Exemplare" soll 3 sein.
Das Aufrufen habe ich einfach über folgendes Makro realisiert:
Sub Drucken()
Application.Dialogs(xlDialogPrint).Show
End Sub

Ich brauche aber den Dialog, damit der User den Drucker auswählen kann, oder bei Bedarf einzelne Seiten nochmal auszudrucken kann.
Kann ich da noch was in den Code einfügen, damit das geht?!
Vielen Dank schon mal!
Gruss Marc
Bild

Betrifft: AW: Dialogfenster Drucken mit Vorauswahl starten
von: Gerd

Geschrieben am: 20.12.2006 18:41:50
Hi,
folgende Argumente können übergeben werden:
range_num, from, to, copies, draft, preview, print_what, color, feed, quality, y_resolution, selection, printer_text, print_to_file, collate
Steht aber auch in der Hilfe, daher hab ich es auch nur.
mfg Gerd
Bild

Betrifft: AW: Dialogfenster Drucken mit Vorauswahl starten
von: Marc81

Geschrieben am: 22.12.2006 10:03:53
Hallo Gerd
Danke erst mal für deine Antwort.
Leider bekomme ich es trotzdem noch nicht hin :-(
Wenn ich es so mache:
Application.Dialogs(xlDialogPrint).Show Copies:=4
kommt der Fehler: "Benanntes Argument nicht gefunden"
Mache ich es so:
Application.Dialogs(xlDialogPrint).Show Arg4:=4
kommt zwar kein Fehler, aber er macht auch nicht das, was ich möchte.
Vielleicht hast du noch eine Idee!
Gruss Marc
Bild

Betrifft: AW: Dialogfenster Drucken mit Vorauswahl starten
von: Marc81

Geschrieben am: 22.12.2006 10:14:12
Hallo Gerd
Habe es doch hinbekommen!!!
Hiermit bekomme ich eine Vorauswahl für 2 Kopien und gedruckt werden soll die Gesamte Arbeitsmappe.
' Built-In Dialog Box Argument Lists
' xlDialogPrint
' range_num, from, to, copies, draft, preview, print_what, color,
' feed, quality, y_resolution,
' selection (1=Markierung, 2=Ausgewählte Blätter, 3=Gesamte Mappe),
' printer_text, print_to_file, collate
Dim bShow As Boolean
bShow = Application.Dialogs(xlDialogPrint).Show(, , , 2, , , , , , , , 3)
Durch dein Stichwort: "Argument" bin ich in der Suche doch noch fündig geworden :-)
Gruss Marc
 Bild
Excel-Beispiele zum Thema "Dialogfenster Drucken mit Vorauswahl starten"
Mehrbereichsauswahl auf eine Seite drucken. Sichtbare Blätter drucken
Automatische Datumformatierung unterdrücken Bestätigung beim Speichern unterdrücken.
Kopfzeile in Buchform drucken In einem Dialog ausgewählte Spalten drucken
Codeblatt mit Rändern drucken Mehrfachauswahl im Hoch- und Querformat drucken
Tabellenblätter in umgekehrter Reihenfolge drucken Alle Dateien eines Verzeichnisses drucken