Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
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
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Drucken

Forumthread: VBA Drucken

VBA Drucken
01.04.2006 15:35:31
Thorsten
Hi,
suche für meine Buchhaltung ein VBA, damit dass versehentliche
Drucken von leeren Formularen bzw. Folgeseiten aufhört.
Nur habe ich Null-VBA-Ahnung.
Dies soll wie folgt aussehen. Ich möchte mir einen Button Drucken
erstellen und anhand Zelle A1 soll erkannt werden wieviel
Seiten gedruckt werden müssen.
Steht in A1 eine 1 - nur die erste Seite
Steht in A1 eine 3 - dann die 3 ersten Seiten u.s.w.
Für Hilfe, oder Hinweis auf Link
besten Dank im vorraus
Gruß aus Leipzig
Thorsten
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Drucken
01.04.2006 15:41:13
Werner
Hallo Thorsten

Sub Drucken()
x = [A1]
ActiveWindow.SelectedSheets.PrintOut From:=x, To:=x, Copies:=1, Collate _
:=True
End Sub

Gruss Werner
Korrektur
01.04.2006 15:48:42
Werner
Hallo Thorsten
Das esrte Makro hätte dann nur z.B. eine Seite gedruckt. (From - To)

Sub Drucken()
x = [A1]
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=x, Copies:=1, Collate _
:=True
End Sub

Gruss Werner
Anzeige
AW: VBA Drucken
01.04.2006 15:47:25
Reinhard
Hi Thorsten,
ungetestet: 
Option Explicit
Sub tt()
Application.EnableEvents = False
ActiveSheet.PrintOut From:=1, To:=ActiveSheet.Range("A1")
Application.EnableEvents = True
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
Besten Dank an Beide
01.04.2006 16:14:42
Thorsten
Besten Dank Reinhard und auch Werner,
Habe beide probiert und funktionieren wie gewollt.
Super und nochmals Dank
Thorsten
Danke für die Rückmeldung OT:-)
01.04.2006 16:23:21
Werner
;

Forumthreads zu verwandten Themen

VBA Drucken
Walter

Halo Excelfreunde
Die Datei https://www.herber.de/bbs/user/64893.xls wurde aus Datenschutzgründen gelöscht
Ich suche eine VBA Lösung, da ich es trotz einiger Versuche keine Lösung finde.
Danke für die Hilfe
Walter
05.10.2009 20:38:51
Thread-ID: 1107318
3 Beiträge
Excel Blatt + bestehendes PDF per VBA drucken
a_ke

Hallo,
ich drucke per VBA ein oder mehrere Tabellenblätter aus, wobei diese sich auch in andern vorab zu öffnenden Mappen befinden. Das ist an sich nicht das Problem und wird wie folgt gelöst.
... If Worksheets("Daten").Range("A1").Value = True Then
Workbooks.Open Worksheets("Dokume...
06.08.2011 13:57:51
Thread-ID: 1225013
2 Beiträge
nur bestimmte Blaetter per VBA drucken
Andreas

Hallo,
ich habe eine Arbeitsmappe mit x Blaettern und manche von denen sind ausgeblendet.
Ich habe eine userform mit einer druckerauswahl. Nun moechte ich gerne die ausgeblendeten Blaetter mit CommandButton1 ausdrucken, aber nur wenn diese in Zelle "A4" Daten enthalten.
Kann mir vie...
11.08.2014 10:31:14
Thread-ID: 1375598
7 Beiträge
VBA Drucken, Passwortabfrage
Herman

Guten Tag,
ich möchte per VBA einen bestimmten Bereich drucken lassen. (Range("A1:Z35").PrintOut)
Dieser Ausdruck soll in Farbe erfolgen. Wenn man allerdings bei uns im Unternehmen etwas in Farbe ausdrucken möchte, ist es nötig in ein Abfragefenster einen Abteilungscode einzugeben. Da d...
09.01.2015 10:08:44
Thread-ID: 1401680
2 Beiträge
Mit VBA drucken
Stefan

Hallo,
ich möchte gerne mit VBA drucken. Mein Code dafür ist.
Sub test() Dim blatt As Worksheet For Each blatt In Worksheets If blatt.Visible = True Then If InStr(blatt.Name, "0(") > 0 Then blatt.PrintPreview End If Next blatt End Sub
das Problem ist er soll die Tabellenblätter...
09.01.2015 11:03:56
Thread-ID: 1401707
8 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
Anzeige
per vba drucken
Johannes

Hallo,ich möchte per vba aus mehreren Tabellenblättern jeweils einen Bereich (mehrere Zeilen) auswählen und alles zusammen auf einer Seite ausdrucken. Die Tabellenblätter haben unterschiedliche Spaltenbreiten.Wie könnte man das machen?Vielen Dank im voraus.Johannes
16.09.2002 14:34:24
Thread-ID: 160472
5 Beiträge
Ausgeblendete Tabelle via VBA drucken
Maik

Hallöchen,ich versuche eine ausgeblendete Tabelle zu drucken. Der Druckvorgang soll über eine Schaltfläche erfolgen, die zunächst ein Passwort abruft. So weit geht das auch, nur bekomme ich die Seite selbst nicht gedruckt. Okay, sie ist ausgeblendet, also dürfte .Select oder .Activate nicht wir...
26.11.2002 15:28:19
Thread-ID: 185854
4 Beiträge
Mit VBA drucken
LEON
Hallo!

und noch ne Frage...

Wie lautet der Befehl zum drucken einer bestimmten arbeitsmappe?

DANKE!!!
06.09.2003 18:16:38
Thread-ID: 305853
4 Beiträge
VBA drucken
Frank

Hallo Excelperten,
ich möchte gerne ein Userform ausdrucken. Vorher möchte ich aber wählen auf welchem Drucker. Zur Zeit mache ich das damit:
application.dialogs(xldialogprintersetup).show
Ich bekomme dann ein Menü, wähle den Drucker und er druckt. Leider versucht Excel aber immer a...
23.12.2004 18:36:33
Thread-ID: 537630
2 Beiträge
VBA Drucken
Sascha

Was muß ich meinen Code noch hinzufügen damit vor dem Druck die Druckereinstellungen aufgerufen werden.
Private Sub cmbDrucken_Click() usrBestellung.PrintForm Worksheets("Preismatrix").PrintOut End Sub
Danke Gruß Sascha
15.09.2005 14:51:25
Thread-ID: 667717
3 Beiträge
VBA Drucken
Thorsten

Guten Abend oder besser Moin,
Was ist an mein Code falsch oder fehlt?
Fehlermeldung: Fehler beim Kompilieren, Variable nicht definiert.
Sub Drucken_AS() On Error GoTo Fehler x = [STRG!AB3] y = [STRG!AD3] ActiveWindow.SelectedSheets.PrintOut From:=1, To:=x, Copies:=y, Collate _ :=Tr...
14.09.2006 00:48:18
Thread-ID: 801601
3 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