Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1856to1860
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucken mit Druckvorschau

Drucken mit Druckvorschau
27.11.2021 15:07:41
Edmund
Hallo,
ich möchte ein Tabellenblatt drucken mit Druckvorschau - geht mit meinem Code.
Leider wechselt Exel vor dem Druckbefehl von Windows, also nach der Druckvorschau in die zu druckende Tabelle.
Wie kann ich das unterbinden?
Hier mein Code zum Drucken mit Vorschau:
Option Explicit

Private Sub ButtonDrucken_Click()
'Angebot drucken mit Druckvorschau
'Wenn das Feld "Objekt" (Eingabe D9) keine Daten enthält, wird ein MsgBox mit einem Fehler angezeigt
'und das Speichern wird abgebrochen.
Dim antwort
If Sheets("Eingabe").Range("D9").Value = "" Then
antwort = MsgBox("Ihr Angebot kann nicht gedruckt werden!" & vbLf & _
"Sie haben keine Objektadresse angegeben!", vbCritical + vbOKOnly, "ImmoGrandeTool")
Unload Auswahl_Angebot
Exit Sub
End If
'Angebot drucken mit Druckvorschau
Sheets("Eingabe").Select
Sheets("Druck_Angebot").Visible = True
Sheets("Druck_Angebot").Select
Unload Auswahl_Angebot
Sheets("Druck_Angebot").Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.Visible = False
End Sub

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken mit Druckvorschau
27.11.2021 15:21:57
JoWE
Hallo Edmund,
ich denke das "select" kannst Du Dir sparen, ungetestet so?

Sheets("Eingabe").Select
Sheets("Druck_Angebot").Visible = True
Unload Auswahl_Angebot
With Sheets("Druck_Angebot")
.PrintPreview
.Visible = False
End With
Gruß
Jochen
AW: Drucken mit Druckvorschau
27.11.2021 15:40:00
Edmund
Hallo Jochen,
habe es getestet, leider zeigt er mir vor dem Drucken immer noch die Tabelle "Druck_Angebot" an, das wollte ich eigentlich unterbinden.
'Angebot drucken mit Druckvorschau
Sheets("Eingabe").Select
Sheets("Druck_Angebot").Visible = True
Unload Auswahl_Angebot
With Sheets("Druck_Angebot")
.PrintPreview
.Visible = False
End With
Anzeige
AW: Kannst Du die Arbeitsmappe hochladen?
27.11.2021 15:48:16
JoWE
bei mir (ohne die Userform) klappts
AW: Kannst Du die Arbeitsmappe hochladen?
27.11.2021 16:05:53
JoWE
Hallo Edmund,
ich hatte das "Problem" nicht so richtig erkannt, versuchs mal so:

'Angebot drucken mit Druckvorschau
Application.ScreenUpdating = False
Sheets("Eingabe").Select
Sheets("Druck_Angebot").Visible = True
Unload Auswahl_Angebot
With Sheets("Druck_Angebot")
.PrintPreview
.Visible = False
End With
Application.ScreenUpdating = False
Gruß
Jochen
AW: Kannst Du die Arbeitsmappe hochladen?
27.11.2021 16:11:05
Edmund
Jochen du bist der Beste !!
Hab es eingebaut und es tut was es soll, das Datenblatt "Angebot" taucht vor dem Drucken nicht mehr auf.
Danke
Edmund
Anzeige
AW: Danke für die Rückmeldung
27.11.2021 16:12:54
JoWE
AW: Danke für die Rückmeldung
27.11.2021 20:35:49
Edmund
#Jochen
Schade, hab mich zu früh gefreut, beim Druck von Wert1914 druckt das Programm zwar alle 2 Seiten korrekt, angezeigt wird mir aber nur die erste Seite. Wenn ich normal über Exel drucke mit Vorschau, werden mir alle zwei Seiten angezeigt.
Bei Antrag_drucken traue ich es mir gar nicht einzubauen, da werden 3 verschiedene Arbeitsblätter gedruckt.
'Wert1914 drucken mit Druckvorschau
Application.ScreenUpdating = False
Sheets("Eingabe").Select
Sheets("Druck_Wert1914").Visible = True
Unload Auswahl_Wert1914
With Sheets("Druck_Wert1914")
.PrintPreview
.Visible = False
End With
Application.ScreenUpdating = False
Anzeige
AW: Danke für die Rückmeldung
27.11.2021 22:57:47
JoWE
Hi Edmund,
tja, das ist mir auch unverständlich, eine richtig tolle Lösung finde ich nicht, vielleicht kannst Du mit dem folgendem Workaround leben.
Damit wird das Sheet während der Druckaufbereitung leider doch noch kurz angezeigt:

Sub Wertermittlung_drucken()
Sheets("Eingabe").Select
Application.ScreenUpdating = False
With Sheets("Druck_Wert1914")
.Visible = True
.Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"
End With
End Sub
Darüberhinaus muss noch in "diese Arbeitsmappe" dieses Makro eingebaut werden:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Druck_Wert1914").Visible = False
Application.ScreenUpdating = False
End Sub
Gruß
Jochen
Anzeige

104 Forumthreads zu ähnlichen Themen

VBA Eingabemaske mit Vorschau
Dip

Hallo Allerseits,
Gerne würde ich folgende Problemstellung in den Chat einbringen, in der Hoffnung jemand kann mir weiterhelfen.
Es geht darum, dass wenn ich in einer Zelle (und zwar in einer bestimmten Spalte ab einer bestimmten Zeile) doppelklicke, eine Eingabemaske erscheint. Dort ka...
02.02.2014 03:10:30
Thread-ID: 1347660
4 Beiträge
Anzeige
VBA Excel - Drucken mit Druckbereich/Seitenanzahl
Hans

Hallo Excellenten,
ich suche nach einer Möglichkeit, in einem Excel-Tabellenblatt 3 Seiten nach folgendem Schema zu drucken:
1. Seite (2x drucken)
2. Seite (1x drucken)
3. Seite (1x drucken)
Er soll also die erste Seite 2 Mal drucken und die anderen beiden je 1 Mal
Der E...
09.08.2017 15:25:36
Thread-ID: 1573494
4 Beiträge
Zeilennummern mit ausdrucken (VBA)
Wolfgang

Hallo*
ich benötige 'mal wieder die Hilfe des Forums:
Ich habe über Makrorekorder ein Makro aufgenommen, welches bewirkt, über Userfrm. den Inhalt vorbestimmter Spalten auszudrucken. Leider schaffe ich es nicht, die jeweiligen Zeilennummern ausdrucken zu lassen. Ist das grundsätzlich bei...
20.09.2004 17:44:55
Thread-ID: 487979
7 Beiträge
Anzeige
VBA Drucken langer Zeilen mit Umbruch
Hangasilly
Guten Morgen zusammen,
ich grübele schon ne ganze Weile über folgendes Problem nach.
Ich hatte auch versucht, das schonmal hier zu erläutern, aber irgendwie sehe ich meinen Threat nicht - daher nun auf ein Neues:
Ich hab einen Kalender, der, wenn man das Jahr angibt die Feiertage definie...
07.04.2022 09:06:59
Thread-ID: 1878687
7 Beiträge
Formeln nicht mitdrucken
Sonja

Hallo,
ich habe wieder einmal ein Problem und bitte um Eure Hilfe:
Ich habe ein Tabellenblatt, welches mit Formeln gefüllt ist.
Die Formlen holen sich bei Bedarf Daten aus einem anderen Sheet.
Wenn ich nun das Tabellenblatt drucke, druckt er mir alle Seiten (leer) aus, in denen...
05.05.2010 08:24:45
Thread-ID: 1155471
4 Beiträge
VBA Eingabemaske mit Vorschau
Dip

Hallo Allerseits,
Gerne würde ich folgende Problemstellung in den Chat einbringen, in der Hoffnung jemand kann mir weiterhelfen.
Es geht darum, dass wenn ich in einer Zelle (und zwar in einer bestimmten Spalte ab einer bestimmten Zeile) doppelklicke, eine Eingabemaske erscheint. Dort ka...
02.02.2014 03:10:30
Thread-ID: 1347660
4 Beiträge
VBA Drucken mit variabler Seitenanzahl - Word
Hendrik

Hallo zusammen,
ich habe hier in diesem Forum einen passenden Code gefunden, für das automatische Drucken eines Dokuments. Leider komme ich nicht drauf, wie ich meine Variablen ("Seite" und "Kopien" richtig deklariere.
Der Code funktioniert einwandfrei ohne Variablen.
Sub Drucker...
11.07.2017 14:05:34
Thread-ID: 1568527
9 Beiträge
VBA Excel - Drucken mit Druckbereich/Seitenanzahl
Hans

Hallo Excellenten,
ich suche nach einer Möglichkeit, in einem Excel-Tabellenblatt 3 Seiten nach folgendem Schema zu drucken:
1. Seite (2x drucken)
2. Seite (1x drucken)
3. Seite (1x drucken)
Er soll also die erste Seite 2 Mal drucken und die anderen beiden je 1 Mal
Der E...
09.08.2017 15:25:36
Thread-ID: 1573494
4 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
8
3
6
17
6
3
3
8
3
15
9
1
19
1
6
16
4
5
17
6
3
3
8
3