Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
684to688
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
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Drucker Zeile für Zeile anhalten

Drucker Zeile für Zeile anhalten
20.10.2005 13:35:27
Vliegen
Hallo Excelfreunde,
Einmal mehr bin ich auf euren Rat angewiesen.
Habe für landwirtschaftliche Versuche eine Excel-Anwendung mit verschiedenen Makros erstellt die eine automatische Einwaage von Versuchserntedaten ermöglicht. Funktionnierte auch das gesamte Jahr 2005 bei allen bisherigen Beerntungen sehr gut. Leider ist mir aber einmal Excel während der Versuchseinwaage abgestürzt und dann waren eine ganze Serie Daten verloren. Man könnte die Datei natürlich bei jeder Einwaage neu speichern aber das gesamte System würde dadurch sehr verlangsamt denn die Datei ist nicht gerade klein und die Einwaagewerte kommen im Normalbetrieb sehr schnell rein. Also muss eine andere Lösung her.
Daher dachte ich mir dass es eventuell möglich wäre die von der Waage kommenden Daten einfach einmal auszudrucken, dann hat der Nutzer immer noch eine schriftliche Kopie der Daten falls Excel mal abstürzt. Problem ist wenn ich das versuche wird ja immer ein ganzes Blatt beim Drucken verwendet. Für jeden Wert ein Blatt wäre auch zu langsam und vor allem zu viel Papier. Daher meine Frage : Kann man den Drucker und seine Eigenschaften per VBA so steuern dass er nur die Zeile mit dem neu eingegangenen Wert ausdruckt und das Blatt nicht auswirft sondern immer weiter Zeilen darunter druckt bis das Blatt voll ist und dann erste auswirft. Hat jemand damit Erfahrung, ist das überhaupt möglich von den Steuerungsmöglichkeiten eines Druckers her und hat jemand dazu eventuel ein Makro ?
Ich freue mich auf eure Antworten.
Gruss aus Belgien,
François

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucker Zeile für Zeile anhalten
20.10.2005 14:07:22
MichaV
Hallo,
so schickst Du eine Zeile an den Drucker.

Open "LPT1:" For Output As #1
Print #1, "Deine eine Zeile"
Close

Wenn das Blatt voll ist, wird es ausgeworfen. Wenn es nicht ganz voll ist, dann spuckt es mein Drucker nach Betätigen der OnLine- Taste aus.
Gruss- Micha
PS: Rückmeldung wäre nett.
AW: Drucker Zeile für Zeile anhalten
20.10.2005 14:18:04
Vliegen
Hallo Micha,
Danke für deinen Vorschlag, werde das ganze mal ausprobieren.
Muss mal sehen wie ich das jetzt in die bestehenden Makros einflechte.
Klappt das denn auch mit Laserdruckern oder nur mit Tintenstrahler? Hat zwar keine direkte Bedeutung da ein Tintenstrahl vorgesehen ist aber ...
Gruss,
François
Anzeige
AW: Drucker Zeile für Zeile anhalten
20.10.2005 14:18:07
Vliegen
Hallo Micha,
Danke für deinen Vorschlag, werde das ganze mal ausprobieren.
Muss mal sehen wie ich das jetzt in die bestehenden Makros einflechte.
Klappt das denn auch mit Laserdruckern oder nur mit Tintenstrahler? Hat zwar keine direkte Bedeutung da ein Tintenstrahl vorgesehen ist aber ...
Gruss,
François
AW: Drucker Zeile für Zeile anhalten
20.10.2005 14:18:17
Vliegen
Hallo Micha,
Danke für deinen Vorschlag, werde das ganze mal ausprobieren.
Muss mal sehen wie ich das jetzt in die bestehenden Makros einflechte.
Klappt das denn auch mit Laserdruckern oder nur mit Tintenstrahler? Hat zwar keine direkte Bedeutung da ein Tintenstrahl vorgesehen ist aber ...
Gruss,
François
Anzeige
AW: Drucker Zeile für Zeile anhalten
20.10.2005 14:18:19
Vliegen
Hallo Micha,
Danke für deinen Vorschlag, werde das ganze mal ausprobieren.
Muss mal sehen wie ich das jetzt in die bestehenden Makros einflechte.
Klappt das denn auch mit Laserdruckern oder nur mit Tintenstrahler? Hat zwar keine direkte Bedeutung da ein Tintenstrahl vorgesehen ist aber ...
Gruss,
François
AW: Drucker Zeile für Zeile anhalten
20.10.2005 14:18:37
Vliegen
Hallo Micha,
Danke für deinen Vorschlag, werde das ganze mal ausprobieren.
Muss mal sehen wie ich das jetzt in die bestehenden Makros einflechte.
Klappt das denn auch mit Laserdruckern oder nur mit Tintenstrahler? Hat zwar keine direkte Bedeutung da ein Tintenstrahl vorgesehen ist aber ...
Gruss,
François
Anzeige
AW: Drucker Zeile für Zeile anhalten
20.10.2005 14:18:42
Vliegen
Hallo Micha,
Danke für deinen Vorschlag, werde das ganze mal ausprobieren.
Muss mal sehen wie ich das jetzt in die bestehenden Makros einflechte.
Klappt das denn auch mit Laserdruckern oder nur mit Tintenstrahler? Hat zwar keine direkte Bedeutung da ein Tintenstrahl vorgesehen ist aber ...
Gruss,
François
AW: Drucker Zeile für Zeile anhalten
20.10.2005 14:18:44
Vliegen
Hallo Micha,
Danke für deinen Vorschlag, werde das ganze mal ausprobieren.
Muss mal sehen wie ich das jetzt in die bestehenden Makros einflechte.
Klappt das denn auch mit Laserdruckern oder nur mit Tintenstrahler? Hat zwar keine direkte Bedeutung da ein Tintenstrahl vorgesehen ist aber ...
Gruss,
François
Anzeige
AW: Drucker Zeile für Zeile anhalten
20.10.2005 14:18:45
Vliegen
Hallo Micha,
Danke für deinen Vorschlag, werde das ganze mal ausprobieren.
Muss mal sehen wie ich das jetzt in die bestehenden Makros einflechte.
Klappt das denn auch mit Laserdruckern oder nur mit Tintenstrahler? Hat zwar keine direkte Bedeutung da ein Tintenstrahl vorgesehen ist aber ...
Gruss,
François
AW: Drucker Zeile für Zeile anhalten
20.10.2005 14:18:45
Vliegen
Hallo Micha,
Danke für deinen Vorschlag, werde das ganze mal ausprobieren.
Muss mal sehen wie ich das jetzt in die bestehenden Makros einflechte.
Klappt das denn auch mit Laserdruckern oder nur mit Tintenstrahler? Hat zwar keine direkte Bedeutung da ein Tintenstrahl vorgesehen ist aber ...
Gruss,
François
Anzeige
AW: Drucker Zeile für Zeile anhalten
20.10.2005 14:22:04
MichaV
Hallo François,
ich habe mit Laser getestet, der kann ja nur eine ganze Seite drucken. Die angefangenen Zeilen stecken aber im Drucker- Speicher. Darfst den Drucker also nicht ausschalten ;o)
Ein Tintendrucker sollte Zeile für Zeile drucken, das probier ich zu Hause gleich mal aus.
Gruss- Micha
PS: Rückmeldung wäre nett.
AW: Drucker Zeile für Zeile anhalten
20.10.2005 14:46:50
Vliegen
Hallo Micha,
Sorry wegen der vielen Postings, leider hat Lotus Notes nicht angezeigt dass die Nachrichten ans Forum gesendet waren, blieb bei der Vorschau hängen. Hab also immer neu geklickt.
Nun zur Frage :
Mal dumm frage : Was genau darf denn in "Deine Zeile" stehen wenn ich zum Beispiel die Zeile mit der aktiven Zelle ausdrucken will.
Gruss Francois
Anzeige
AW: Drucker Zeile für Zeile anhalten
20.10.2005 16:02:13
MichaV
Hallo,
was hindert Dich daran, das mal auszuprobieren?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
If Target = Range("a1") Then
x = FreeFile
Open "LPT1:" For Output As #x
Print #x, Target 'oder activecell, oder cells(1,1) oder range("x8") usw.
Close #x
End If
End Sub

Gruß- Micha
PS: Rückmeldung wäre nett.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige