Herbers Excel-Forum - das Archiv
Dialogfenster Drucken mit Vorauswahl starten
- Dialogfenster Drucken mit Vorauswahl starten von Marc81 vom 18.12.2006 11:17:54
- AW: Dialogfenster Drucken mit Vorauswahl starten - von Gerd am 20.12.2006 18:41:50
- AW: Dialogfenster Drucken mit Vorauswahl starten - von Marc81 am 22.12.2006 10:03:53
- AW: Dialogfenster Drucken mit Vorauswahl starten - von Marc81 am 22.12.2006 10:03:53
- AW: Dialogfenster Drucken mit Vorauswahl starten - von Marc81 am 22.12.2006 10:14:12
 |
Betrifft: Dialogfenster Drucken mit Vorauswahl starten
von: Marc81
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
 |
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
|
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
|
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
| |