Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Workbook_BeforePrint

Forumthread: Workbook_BeforePrint

Workbook_BeforePrint
Benedikt
Guten Morgen zusammen
Mit nachfolgendfem Code habe ich bisher ein Dialogfeld mit Bereichsauswahlen zum Drucken _
aufgerufen. 

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Druckdialog
End Sub

Da die Datei neu als PDF gespeichert wird, erscheint das Dialogfeld auch beim speichern. Wie kann man das verhindern ?
Vielen Dank und freundliche Grüsse
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Workbook_BeforePrint
30.04.2012 13:21:38
Rudi
Hallo,
evtl so:
In einem Modul 
Dim bolPDF As Boolean
Sub Test()
bolPDF = True
MakePDF 'PDF erstellen
bolPDF = False
End Sub

In DieseArbeitsmappe 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Not bolPDF Then Druckdialog
End Sub

Gruß
Rudi
Anzeige
AW: Workbook_BeforePrint
30.04.2012 14:09:31
Benedikt
Danke Rudi für deine Mühe. Funzt leider nicht.
Wenn ich die Datei schliesse wird der aktuelle Bereich als PDF gespeichtert. Und sobald als PDF gespeichert wird, geht wieder mein Druckdialog auf.
Macht nichts, währe schöner gewesen als ein Druckbutton auf der Arbeitsmappe.
Danke und Gruss Benedikt
Anzeige

Forumthreads zu verwandten Themen

VBA Beispiele Fadenkreuz
Andreas

Hallo Excelgemeinde,
in den Excelbeispielen habe ich diese super Lösung für das Anzeigen eines Fadenkreuzes in einer Exceltabelle gefunden:
http://hajo-excel.de/vba_markieren_fadenkreuz.htm
Funktioniert auch super, aber ich habe noch 2 Probleme:
1. Ich möchte, dass das Fadenkre...
22.12.2013 14:57:31
Thread-ID: 1343328
5 Beiträge
VBA - nicht schliessen wenn Pflichtfelder leer
MT

Hallo,
ich habe mal wieder ein kleines Problem in Excel - was für euch sicherlich (hoffentlich) ne Kleinigkeit ist.
Und zwar habe ich eine Mustervorlage erstellt, bei der gewissen Pflichtfelder auszufüllen sind. Diese sind für eine bessere Sichtbarkeit entsprechend grau hinterlegt.
13.09.2011 15:09:34
Thread-ID: 1229666
2 Beiträge
Anzeige
aktive Zelle farbig, Code anpassen
Christian
Hallo an Forum,
nachfolgenden Code habe ich von Hajo's HP.
Wie muss der Code angepasst werden, das er nur die aktiven Zellen in einem Tabellenblatt (bei mir heisst das Blatt Kalkulation) markiert?
Vielen Dank in Voraus an die Helfer!
MfG Christian
Option Explicit
'**********...
20.03.2008 14:14:39
Thread-ID: 962392
10 Beiträge
860to864: "SaveAs" speichert nicht
Franz

Hallo Fachleute,
ich steht vor einem Rätsel und bitte um Eure Hilfe: Ich habe in einer Workbook_BeforePrint-Anweisung "SaveAs" - es wird aber nicht gespeichert:
Private Sub Workbook_BeforePrint(Cancel As Boolean) Set wks = Worksheets("Eintragungen") If Druck = False Then Cancel = True...
14.04.2007 11:27:00
Thread-ID: 862371
9 Beiträge
BeforePrint - Fehler
Thomas

Hallo Zusammen
Mit BeforePrint veranlasse ich Excel erst dazu, einige Formatierungen vorzunehmen, ein Blatt auszublenden, danach wieder alles Rückgängig machen.
Das ganze funktioniert so:
Private Sub Workbook_BeforePrint(Cancel As Boolean) Static wirklichDrucken As Boolean 'Semap...
01.11.2005 14:32:05
Thread-ID: 689734
2 Beiträge
Abfrage Druckanzahl bei BeforePrint
Tanja

05.10.2007
Hallo, Leute,
ich habe folgendes Problem (da leider meine Excel-VBA-Kenntnisse eher sehr bescheiden sind).
Ich benötige für eine Excel-Datei eine Möglichkeit, dass vor dem Drucken der Windows-User abgefragt wird und entsprechend bei einem bestimmten User für ein Register...
05.10.2007 18:22:46
Thread-ID: 913409
10 Beiträge
Cancel des Workbook_BeforePrint - Falscher Drucker
Michael

Hallo.
Ich bin hier über ein komischen Phänomen gestolpert, zu welchem ich noch keine Lösung gefunden habe. Vielleicht ist es ja jemanden von Euch bekannt und es gibt Lösungsansätze!?
Wenn ich in einem Project in Excel2007 den Event Workbook_BeforePrint mit Cacnel = True abbreche, dann...
09.04.2013 14:43:30
Thread-ID: 1307930
3 Beiträge
Zelle vor automatischer Speicherung verlassen
Tobias

Hallo,
habe folgendes Problem:
VBA Code erzeugt und prüft einen zeitlichen Intervall und schließt und speichert bei Bedarf das Arbeitsmappe. Da funktioniert allerdings nicht, wenn die Zelle in Bearbeitung ist. Wie kann ich die Zelle beispielweise vorher escapen und, wo muss dieses Code...
04.08.2016 14:39:46
Thread-ID: 1507817
4 Beiträge
Anzeige
Abfangen Ausdruck bzw. Vorschau
Adi

Hallo zusammen,
ich fange mittels "Workbook_BeforePrint" den Excel-Ausdruck bzw. die –Vorschau ab, um meinen eigene Code mittels "ReAusdruckUserForm.Show" einzuleiten.
Schnipp ------------------------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel...
26.07.2006 22:26:01
Thread-ID: 785641
2 Beiträge
ListBox multiselect läuft nicht rund...
Matthias_FFM

Guten Morgen Forum,
über eine Userform mit multiselect werden die aktuellen Tabellenblätter zum Ausdruck eingelesen. Nach "Anklicken" der Tabellenblätter und Drücken des Start-Buttons sollen über die Funktion " Private Sub Workbook_BeforePrint(Cancel As Boolean)" in "Dieses Arbeitsmappe" F...
13.05.2005 10:59:44
Thread-ID: 611173
14 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum