Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucken mit Druckvorschau

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
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
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
;

Forumthreads zu verwandten 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 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
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
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
Formeln nicht ausdrucken
mike

Guten Tag =WENN(D18*E18;E18*D18;"")Diese Formel geht über 100 Seiten.
Jedoch möchte ich nur die Formeln ausdrucken in denen ein Resultat steht, ohne die Anzahl zu druckenden Seiten nachzuzählen.Weiter weis ich nicht, wie ich das Resultat dieser Formel noch auf 5 Rappen genau Runden kannWenn...
06.05.2003 18:00:58
Thread-ID: 252984
10 Beiträge
Standardform nicht drucken
Oliver
Hallo Forum,
mein Problem hat nicht direkt mit Excel zu tun, sondern mit Powerpoint, da ich jedoch in diesem Forum gute Erfahrungen gemacht habe und in den ppt-Foren keine Antworten kommen, hoffe ich auf Vorschläge von den xls-Experten...
ich habe einen Foliensatz der Diagramme etc. aus Excel...
04.09.2003 09:01:47
Thread-ID: 304579
2 Beiträge
Formeln nicht drucken
Marc
Guten Morgen

Ich habe folgendes Problem:
Ich habe eine Tabelle, in dieser Tabelle habe ich in der Spalte D von Zeile 8 bis Zeile 55000 eine Formel. Diese Formel sieht so aus: =WENN(B10="ab";24*(A10-A9);"")
Wenn ich dieses Tabellenblatt nun drucken will, würden ca 900 Seiten gedruckt...
18.09.2003 08:47:57
Thread-ID: 311511
20 Beiträge
Format nicht mitdrucken
Christoph
Guten Morgen,
hat jemand eine Idee, oder einen Hinweis, wie ich ein Tabellenblatt ausdrucke, ohne dass Zellschattierungen oder Rahmen mitgedruckt werden?
Danke, Christoph
27.02.2004 09:32:17
Thread-ID: 389656
2 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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige