Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1112to1116
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
1112to1116
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucken mit Vorschau

Drucken mit Vorschau
Stefanglander
Hallo Excelgemeinde,
ich benutze folgenden Code um einen bestimmten Bereich zu drucken:
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Range("A1:AE29").Select
Selection.PrintOut Copies:=1
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Leider druckt mein Drucker sofort los, ich würde aber gerne vorher das Druckerauswahlmenü angezeigt bekommen.
Wer mag helfen?
Gruß
Stefan

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: der Makrorekorder
25.10.2009 14:36:34
Daniel
ist immer bereit, dir bei solchen Fragen zu helfen.
lasse ihn mitlaufen und drucke einmal von Hand normal und dann mit Vorschau, schau dir den aufgezeichneten Code an und du wirst den entscheidenden Unterschied feststellen, um dann dein eigenes Makro entsprechend anpassen zu können.
Gruß, Daniel
AW: der Makrorekorder
25.10.2009 14:42:02
Stefanglander
Hallo Daniel,
auf die Idee mit dem Rekorder war ich auch gekommen, aber......
Ich Zeichne das Makro auf und bekomme folgenden Code:
Range("A1:AE30").Select
Selection.PrintOut Copies:=1
wenn ich dne nun in einen CMB einbinde:
Private Sub CommandButton4_Click()
Range("A1:AE30").Select
Selection.PrintOut Copies:=1
End Sub
rattert der Drucke rleider sofort los
Gruß
Stefan
Anzeige
AW: der Makrorekorder
25.10.2009 14:48:14
Daniel
Hi
wenn ich das Drucken als Vorschau mit dem Recorder aufzeichne, dann ergibt das bei mir folgendes Ergebnis: 
Sub Makro1()
' Makro1 Makro
' Makro am 25.10.2009 von xxx aufgezeichnet
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
End Sub
Gruß, Daniel
AW: der Makrorekorder
25.10.2009 15:03:08
Stefanglander
Hallo Daniel,
also ich habe Dein Makro ausprobiert, was auch so ist wie ich es gebrauchen kann aber bei mir sieht das so im Rekorder aus: 
Sub Makro18()
' Makro18 Makro
Range("A1:AE30").Select
Selection.PrintOut Copies:=1
End Sub
Danke Dir
Stefan
Anzeige
noch Vorschlag
25.10.2009 14:53:40
Tino
Hallo,
vielleicht geht es so.
In der Seitenansicht kannst Du immer noch bestimmen ob gedruckt werden soll oder nicht.
Private Sub CommandButton3_Click()
Dim strDruckbereich As String
strDruckbereich = ActiveSheet.PageSetup.PrintArea
ActiveSheet.PageSetup.PrintArea = "A1:AE29"
ActiveWindow.SelectedSheets.PrintPreview 'Seitenansicht
Application.OnTime Now + TimeSerial(0, 0, 1), "'PrintAreaReset """ & strDruckbereich & """'"
End Sub
'kommt in ein Modul *******************************
Sub PrintAreaReset(strDruckbereich)
ActiveSheet.PageSetup.PrintArea = strDruckbereich
End Sub
Gruß Tino
Anzeige
AW: noch Vorschlag
25.10.2009 15:06:28
Stefanglander
Hey Tino,
dannke auch Dir, haut super hin.
Eine Frage habe ich aber zu Deinem Code, optisch sieht das genauso aus wie der code von Daniel.
Wo ist der Unterschied?
Gruß
Stefan
Kommentare reingeschrieben.
25.10.2009 15:13:11
Tino
Hallo,
habe ein bar Kommentare reingeschrieben.
Sub PrintAreaReset(strDruckbereich) sollte eigentlich
Sub PrintAreaReset(strDruckbereich As String) lauten.
Private Sub CommandButton3_Click()
Dim strDruckbereich As String
'aktuellen Druckbereich merken
strDruckbereich = ActiveSheet.PageSetup.PrintArea
'Druckbereich auf A1:AE29 festlegen
ActiveSheet.PageSetup.PrintArea = "A1:AE29"
'Seitenansicht aufrufen
ActiveWindow.SelectedSheets.PrintPreview 'Seitenansicht
'nach dem Druck oder der Seitensicht wird PrintAreaReset aufgerufen und
'der alte Druckbereich wieder hergestellt
'OnTime wartet bis der Druckvorgang abgeschlossen oder die Seitenansicht verlassen wird
Application.OnTime Now + TimeSerial(0, 0, 1), "'PrintAreaReset """ & strDruckbereich & """'"
End Sub
'kommt in ein Modul *******************************
Sub PrintAreaReset(strDruckbereich As String)
'alten Druckbereich wieder herstellen
ActiveSheet.PageSetup.PrintArea = strDruckbereich
End Sub
Gruß Tino
Anzeige
:-) Danke (O.T.)
25.10.2009 16:54:59
Stefanglander
.

7 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
Drucken mit Druckvorschau
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 Expli...
27.11.2021 15:07:41
Thread-ID: 1858811
10 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
Anzeige

Links zu Excel-Dialogen

CommandButton

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
9
6