Supportnet / Forum / Tabellenkalkulation
beim "Klick" auf das Druckensymbol, soll UserForm geöffnet werden
Frage
Hallo zusammen,
ich möchte, dass beim "Klick" auf das Druckensymbol, eine UserForm geöffnet wird. dies soll allerdings nur für eine Arbeitsmappe gelten nicht generell für alle Arbeitsmappen.
Danke
Gruß
Tim
Antwort 1 von Hajo_Zi
Hallo Tim,
benutze das Ereignis
Private Sub Workbook_BeforePrint(Cancel As Boolean)
unter DieseArbeitsmnappe
Gruß Hajo
benutze das Ereignis
Private Sub Workbook_BeforePrint(Cancel As Boolean)
unter DieseArbeitsmnappe
Gruß Hajo
Antwort 2 von Tim85
Hallo,
ersteinmal danke!
Habe leider vergessen zu erwähnen, dass die Druckfunktion nicht ausgeführt werden soll.
Gruß
Tim
ersteinmal danke!
Habe leider vergessen zu erwähnen, dass die Druckfunktion nicht ausgeführt werden soll.
Gruß
Tim
Antwort 3 von Hajo_Zi
Hallo Tim
schreibe nach Aufruf der UserForm Cancel=True. Dann ist das Drucken abgestellt. Also die Datei kann nie gedruckt werden. Nur mit deaktivierten Makros in der Variante.
Gruß Hajo
schreibe nach Aufruf der UserForm Cancel=True. Dann ist das Drucken abgestellt. Also die Datei kann nie gedruckt werden. Nur mit deaktivierten Makros in der Variante.
Gruß Hajo
Antwort 4 von Tim85
Hallo Hajo,
in meiner User Form steht folgendes:
Übersicht mit drucken "Ja" "Nein" oder Abbrechen
Ja =
Sheets("Linie 06-07-12-Div").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AS$87"
Sheets(Array("Linie 01-02-03-10", "Linie 04-05-11-08-09", "Linie 06-07-12-Div")).Select
Sheets("Linie 01-02-03-10").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Linie 01-02-03-10").Select
Nein =
Sheets("Linie 06-07-12-Div").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AS$68"
Sheets(Array("Linie 01-02-03-10", "Linie 04-05-11-08-09", "Linie 06-07-12-Div")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Linie 01-02-03-10").Select
Unload Drucken
Abbrechen
Unload Drucken
Gruß Tim
in meiner User Form steht folgendes:
Übersicht mit drucken "Ja" "Nein" oder Abbrechen
Ja =
Sheets("Linie 06-07-12-Div").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AS$87"
Sheets(Array("Linie 01-02-03-10", "Linie 04-05-11-08-09", "Linie 06-07-12-Div")).Select
Sheets("Linie 01-02-03-10").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Linie 01-02-03-10").Select
Nein =
Sheets("Linie 06-07-12-Div").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AS$68"
Sheets(Array("Linie 01-02-03-10", "Linie 04-05-11-08-09", "Linie 06-07-12-Div")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Linie 01-02-03-10").Select
Unload Drucken
Abbrechen
Unload Drucken
Gruß Tim
Antwort 5 von Hajo_Zi
Hallo Tim,
ich verstehe Dich jetzt nicht. Erst schreibst Du
"Habe leider vergessen zu erwähnen, dass die Druckfunktion nicht ausgeführt werden soll."
und jetzt schreibst Du das Du in de Userform doch gedruckt werden soll.
Ich würde vermute mit dem Code bist Du auch in einer Endlosschleife. Ich baue das Beispiel aber nicht nach.
Gruß Hajo
ich verstehe Dich jetzt nicht. Erst schreibst Du
"Habe leider vergessen zu erwähnen, dass die Druckfunktion nicht ausgeführt werden soll."
und jetzt schreibst Du das Du in de Userform doch gedruckt werden soll.
Ich würde vermute mit dem Code bist Du auch in einer Endlosschleife. Ich baue das Beispiel aber nicht nach.
Gruß Hajo
Antwort 6 von Tim85
Hallo Hajo,
ich habe mich leider nicht so gut ausgedrückt.
ich will die druckfunktion nur über meine userform ausführen.
vielen dank für deine mühe.
gruß tim
ich habe mich leider nicht so gut ausgedrückt.
ich will die druckfunktion nur über meine userform ausführen.
vielen dank für deine mühe.
gruß tim
Antwort 7 von Hajo_Zi
Hallo Tim,
warum machst Du dann nicht einen Extra Button mit dem Du Deine Userform aufrufst und schreibst die Beschriftung Drucken drauf.
Gruß Hajo
warum machst Du dann nicht einen Extra Button mit dem Du Deine Userform aufrufst und schreibst die Beschriftung Drucken drauf.
Gruß Hajo
Antwort 8 von Tim85
Hallo Hajo,
ich war auf deiner Homepage und bin fündig geworden!!
Vielen Dank!!
Gruß
Tim
ich war auf deiner Homepage und bin fündig geworden!!
Vielen Dank!!
Gruß
Tim