Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1600to1604
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
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel- Datei nur einmal ausdrucken pro Sekunde

Excel- Datei nur einmal ausdrucken pro Sekunde
08.01.2018 21:38:38
Sabrina
Hallo liebes Forum,
Ich bin recht neu im VBA Bereich, wurde jedoch mit folgender Aufgabe betreut.
Ich habe eine einseitige Excel- Datei. Diese hat eine fortlaufende Nummer, welche sich per Makro selbstständig aktualisiert. Diese Tabelle mit dieser besagten Nummer soll ausgedruckt werden. Jedoch lediglich einmal pro Sekunde, so dass sich die Nummer erneut aktualisieren kann.
Meine Frage nun: ist es möglich den Druckvorgang so zu manipulieren, dass man nicht in der Lage ist das Dokument 5x in der Sekunde zu drucken. Sondern lediglich einmal pro Sekunde. Um so dem Code die Möglichkeit zu geben sich erneut zu aktualisieren?
Ist so etwas eventuell mittels VBA möglich?
Ich hoffe ihr könnt mir folgen und helfen :)
Liebe Grüße
Sabrina

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel- Datei nur einmal ausdrucken pro Sekunde
08.01.2018 21:53:38
onur
Wird denn vom makro aus gedruckt oder "manuell" über Menüpunkt?
AW: Excel- Datei nur einmal ausdrucken pro Sekunde
08.01.2018 22:23:39
Sabrina
Manuell, also herkömmlich über den Menüpunkt
AW: Excel- Datei nur einmal ausdrucken pro Sekunde
08.01.2018 22:48:40
onur
Das ginge nur, wen du das Drucken über Menü unterbinden und nur durch makro drucken könntest.
Sperren kannst du z.B. über
Private Sub Workbook_BeforePrint(Cancel As Boolean)
AW: Excel- Datei nur einmal ausdrucken pro Sekunde
09.01.2018 09:29:55
Sabrina
Ok, vielen Dank. Das habe ich nun gemacht.
Diesen Code habe ich in die Arbeitsmappe gelegt, richtig?
Anschließend ein neues Modul erstellt und folgenden Code eingeben 

Sub druck()
Range("A1:E9").PrintOut Copies:=1
End Sub
Und in der Excel- Datei eine Userform erstellt und diese Schaltfläche den Makro "druck" zugeordnet.
Nun druckt er nicht, ist ja klar. Weil das mit deinen Befehl deaktiviert wurde. Wie kann ich nun über ein Makro drucken? Ist mein Code für diesen Fall korrekt?
Liebe Grüße
Anzeige
AW: Excel- Datei nur einmal ausdrucken pro Sekunde
09.01.2018 10:35:36
onur
Das war kein code, das ich geschrieben habe, es war der name des events, wo du einen code hineinschreiben musst.
z.B.:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
if viamakro=true then
Range("A1:E9").PrintOut Copies:=1
else
cancel=true
Msgbox "Druck nur über Button"
end if
viamakro=false
End Sub

Dann dein Makro: 
Sub druck()
viamakro=true
End Sub

und du musst in einem MODUL schreiben (wenn nich vorhandel, modul hinzufügen): 
Public viamakro as bolean

Anzeige
AW: Excel- Datei nur einmal ausdrucken pro Sekunde
09.01.2018 10:48:08
onur
Ich hatte einen denkfehler, korrekt ist: 
Public Sub Workbook_BeforePrint(Cancel As Boolean)
if viamakro=true then
Range("A1:E9").PrintOut Copies:=1
else
cancel=true
Msgbox "Druck nur über Button"
end if
viamakro=false
End Sub

Dann dein Makro:
Sub druck()
viamakro=true
call Workbook_BeforePrint
End Sub

AW: Excel- Datei nur einmal ausdrucken pro Sekunde
09.01.2018 11:57:53
Sabrina
Ok vielen Dank für deine Mühe.
Ich bekomme nur eine Fehlermeldung bei "viamakro". Weiter heißt es :"Fehler beim Kompilieren: Variable nicht definiert." Fehlt da eventuell ein Attribut?
Liebe Grüße
Anzeige
AW: Excel- Datei nur einmal ausdrucken pro Sekunde
09.01.2018 12:02:19
onur
Ich schrieb doch, du musst 
public viamakro as boolean

in ein Modul (notfalls eins hinzufügen) schreiben.
AW: Excel- Datei nur einmal ausdrucken pro Sekunde
09.01.2018 14:40:22
Sabrina
@ onur: Sorry habe zu schnell gelesen und den Rest deiner Antwort überscrollt :( Tut mir leid.
Ich habe nun alles korrekt eingefügt. Nun bekomme ich aber trotzdem eine Fehlermeldung. in den " _ druck Makro" da wird mir 

Call Workbook_beforePrint
angezeigt. Hast du eine Idee was da helfen könnte?
@ Rudi: funktioniert leider nicht, bzw. das ist mir zu kompliziert :D
Liebe Grüße
Sabrina
Anzeige
AW: Excel- Datei nur einmal ausdrucken pro Sekunde
09.01.2018 14:55:45
onur
Dann so:
Sub druck()
viamakro=true
Range("A1:E9").PrintOut Copies:=1
End Sub

Public Sub Workbook_BeforePrint(Cancel As Boolean)
if not viamakro then
cancel=true
Msgbox "Druck nur über Button"
end if
viamakro=false
End Sub

AW: Excel- Datei nur einmal ausdrucken pro Sekunde
09.01.2018 22:26:48
Sabrina
Super, das ist was ich gesucht habe. Vielen Dank onur :)
Ich habe eine letzte Frage. Ich habe in Zelle D7 Zahl, diese soll pro Druckvorgang um 1 erhöht werden. Ist es möglich dies in den heutigen Code bzw. Makro zu integrieren?
Dann wäre ich rundum glücklich :-)
Liebe Grüße
Sabrina
Anzeige
AW: Excel- Datei nur einmal ausdrucken pro Sekunde
09.01.2018 22:28:59
onur 

Sub druck()
viamakro=true
Range("A1:E9").PrintOut Copies:=1
Cells(7,4)=cells(7,4)+1
End Sub

AW: Excel- Datei nur einmal ausdrucken pro Sekunde
09.01.2018 23:13:16
Sabrina
Super, besten Dank. Du hast mir sehr weit geholfen. Besten Dank !!! :-)
Liebe Grüße
Sabrina
AW: Excel- Datei nur einmal ausdrucken pro Sekunde
09.01.2018 13:07:10
Rudi
Hallo,
evtl. so.
In DieseArbeitsmappe: 
Option Explicit
Dim dblNextTime As Double
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Now

Gruß
Rudi

183 Forumthreads zu ähnlichen Themen

als PDF drucken
KLE

Hallo und Guten Abend zusammen,
...jetzt habe ich meine Datei super hinbekommen - alles funktioniert und so, aber wie immer kommt mein Chef im Nachgang mit einem Sonderwunsch...und da komm ich ohne Eure Hilfe auch nicht weiter :o(
Ich habe es nun dank Eurer Unterstützung geschafft aus e...
25.09.2008 18:01:07
Thread-ID: 1012395
2 Beiträge
Anzeige
Makro: PDF-Drucken automatischer Dateiname
Stewie

Hallo,
ich habe ein Makro erstellt, mit welchem ich meine Tabellenblatt mittels PDF-Maker "drucken" kann.
Funktioniert soweit auch ganz gut, nur muss ich den Dateinamen noch von Hand eingeben.
Ich möchte gerne, dass mir der Text von 2 Zellen in meiner Tabelle als Dateiname benutzt w...
18.11.2008 11:14:00
Thread-ID: 1025556
3 Beiträge
PDF aus Intranet drucken
{Boris}

Hi Leute,
ich möchte aus Excel heraus PDF-Files drucken, die sich in unserem Intranet befinden.
Bisher kann ich sie mittels Hyperlink öffnen - muss dann aber noch manuell den Druck starten. Das möchte ich gerne vermeiden, zumal ich gerne mehrere Files ausdrucken möchte.
Ein klassisc...
05.01.2009 18:47:34
Thread-ID: 1037077
13 Beiträge
Anzeige
VBA, PDF drucken und speichern
georg

Hallo liebe Excellenzen,
ich habe mich früher des öfteren im Spotlight Forum herumgetrieben. Leider fehlt mir heute die Zeit mich mehr einzubringen.
Hier bei Herber ist es mein erster Beitrag. Vielen Dank dafür dass es hier eine solche Plattform gibt!
Ich habe einen kleinen Server....
12.05.2009 13:23:15
Thread-ID: 1074578
3 Beiträge
Alle pdf aus einem Ordner drúcken
Gerhard

Hallo zusammen,
ich habe mir folgendes Makro aus dem Forum genommen: Sub PrintPDF() Dim sPath$, i% sPath = "C:\Documents and Settings\gglatz\Desktop\NEWFOLDER\" With Application.FileSearch .NewSearch .LookIn = sPath .Filename = "*.*" .Execute Range("B2").Value = .FoundFiles.Count .NewSearch...
13.07.2009 12:51:43
Thread-ID: 1088158
4 Beiträge
pdf Dateien in einem Ordner drucken
Gerhard

Hallo zusammen,
ich habe folgendes Makro um alle pdf Dateien in einem Ordner zu drucken.
Der Druck und alles funktioniert wunderbar. Ich möchte jedoch, dass der Druck in auf- bzw. absteigender Reihenfolge passiert. Die pdf Dateien haben Namen wie
2100005897.pdf
2100005898.pdf
13.07.2009 15:58:37
Thread-ID: 1088238
4 Beiträge
VBA Makro erweitern um Funktion "als pdf drucken"
Sandra

Hallo zusammen,
ich hab da mal wieder eine Hürde die ich nicht alleine überwinden kann.
Ich habe ein Makro "bekommen", welches super funktioniert. Es bewirkt, dass die farbigen Markierungen erhalten bleiben, aber nicht auf dem Ausdruck erscheinen.
Nun soll aber der Druck nicht über...
04.08.2009 16:53:32
Thread-ID: 1093571
14 Beiträge
PDF aus Exceldatei drucken
Beni

Hallo miteinander
Ich möchte mehrere PDF Dateien (ohne diese zu öffnen) per Command Button anhand der Pfadangabe in der Tabelle ausdrucken.
A1 = C:\Test\x.pdf
A2 = C:\Test\y.pdf
A3 = C:\Test\z.pdf
etc.
leider finde ich den Weg nicht alleine
Vielen Dank und ein schöne...
04.09.2009 14:19:10
Thread-ID: 1100634
7 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
1
1
2
12
13
2
3
3
13
6
1
1
4
2
5
1
3
4
1
5
8
6
4
10
2