Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Tim85 vom 05.03.2020, 10:54 Options

beim "Klick" auf das Druckensymbol, soll UserForm geöffnet werden

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 schreiben

Antwort 1 von Hajo_Zi vom 05.03.2020, 18:04 Options

Hallo Tim,

benutze das Ereignis
Private Sub Workbook_BeforePrint(Cancel As Boolean)
unter DieseArbeitsmnappe

Gruß Hajo

Antwort 2 von Tim85 vom 06.03.2020, 09:08 Options

Hallo,

ersteinmal danke!

Habe leider vergessen zu erwähnen, dass die Druckfunktion nicht ausgeführt werden soll.

Gruß

Tim

Antwort 3 von Hajo_Zi vom 06.03.2020, 09:16 OptionsLösung

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

Antwort 4 von Tim85 vom 06.03.2020, 09:31 Options

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

Antwort 5 von Hajo_Zi vom 06.03.2020, 09:42 Options

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

Antwort 6 von Tim85 vom 06.03.2020, 09:46 Options

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

Antwort 7 von Hajo_Zi vom 06.03.2020, 10:32 Options

Hallo Tim,

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 vom 06.03.2020, 10:39 Options

Hallo Hajo,

ich war auf deiner Homepage und bin fündig geworden!!
Vielen Dank!!

Gruß

Tim

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..