zeilenweise drucken

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Roland,
m.E. musst du dem Drukcker per Steuerzeichen exakt vorgeben was er machen soll, deshalb nutzen dir die vba-Befehle printout nichts, denn die drucken und werfen das Blatt aus.
Grundsätzlich bin ich jetzt überfragt ob man z.B einen Laserdrucker überhaupt stoppen kann in einer Zeile, glaub das geht gar nicht.
Jedenfalls haben alle Drucker Steuerzeichen, wie z.B. chr(10) oder vbcr für Carrigereturn usw.
Die normalen Steuerzeichen werden überall gleich sein, also langt eine beliebige Liste von irgendeinem Drucker, wenn nicht brauchst du vom Hersteller die Liste der Steuerzeichen für deinen Drucker.
Früher, ganz früher :-), standen die im Handbuch mitdabei, jetzt nicht mehr *glaub*
Da dies nur mit VBA geht, wirs es kritisch mit deinem angegeben Level.
Nachstehend ein Beispielcode, der nur als Ansatz dienen soll, melde dich mal ob du damit klarkommst oder nicht, dann schauen wir weiter.
Gruß
Reinhard


Sub tt()
Close
Dim Satz(30) As String
Set Bereich = Range("A1:K20")
Open "LPT1" For Output As #1
For z = 1 To 30
For s = 1 To 20
Satz(z) = Satz(z) & " " & Bereich.Cells(z, s)
Next s
Next z
For z = 1 To 10
Print #1, Satz(z)
Next z
Print #1, vbLf 'vbLF=LineFeed = Zeilenvorschub
Print #1, vbLf
Print #1, vbLf
Print #1, "huhu"
Close #1
Set Bereich = Nothing
End Sub

Hi Roland,
das programm läuft nicht?
Welchen Drucker hast du und vor allem wie/wo ist er angeschlossen? USB parallel oder seriell?
Mit dem "LPT1" ist LinePrinter gemeint (alte Bezeichnung als es noch kaum Computer gab),
also der erste (1) parallel-Ausgang des Computers.
Check da mal wo dein Computer angeschlossen ist.
Und zum Testen langt:


Sub tt()
Close
Open "LPT1" For Output As #1
Print #1, "Hello World"
Close #1
End Sub

Wenn "Hello World" nicht gedruckt wird, liegt es an "LPT1", evtl. muss man dann "LPT2" oder "COM1" oder so ausprobieren, bei USB muss ich selbst mal schauen (deshalb Frage noch offen, damit andere ihr Wissen beisteuern können) wie man den Ausgang anspricht.
Also melde dich hier.
Wenn der Drucker erstmal zum laufen gebracht ist, lösen wir dann das mit den zeilen und so.
Achja, willst du im Drucker Endlospapier benutzen?
Gruß
Reinhard

Sub drucken() ' drucken Makro ' Makro am 24.02.2005 von roland klöter aufgezeichnet Range("A1:F20").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$F$20" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread