Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
748to752
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
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige