mittels LS den Inhalt einer Variable ausdrucken

[jens1979]

Hallo,

gibt es eine Möglichkeit mittels LS den Inhalt einer Variable (String) auf den Drucker umzuleiten?

Danke schonmal

Jens

[koehlerbv]

Mit Bordmitteln: Nein. Dafür müsstest Du Dir (notes-typisch) eine Maske basteln und mit deren Hilfe dann ... aber das ist ja bestimmt nicht, was Du willst.

Bernhard

[jens1979]

ne das ist es nicht ganz ... aber danke erstmal ...
Ist es vieleicht möglich den Inhalt in eine Datei zu schreiben ... so das der User sich den Inhalt wenigstens etwas Umständlich ausdrucken könnte?

Jens

[koehlerbv]

Das ist ohne weiteres möglich.

Such mal im Forum nach freefile - da findest Du dann auch Code Snippets.

Bernhard

[eknori]

oder in der Designer Hilfe

Dim nVar As Variant, eVar As Variant
nVar = NULL
Dim fileNum As Integer
fileNum% = FreeFile()
Open "printext.txt" For Output As fileNum%
' Print two lines to the file and close it.
' First line: two String values, with no separation between.
Print #fileNum%, "First line, " ; "with two String items"
' Second line: NULL value, EMPTY value, Integer variable
' value, and String value, separated on the line by tabs.
Print #fileNum%, nVar, eVar, fileNum%, "at next tab"
Close fileNum%
' Open the file, print it, and close the file.
Dim text As String
Open "printext.txt" For Input As fileNum%
Do Until EOF(fileNum%)
   ' Read and print to console, one line at a time.
   Line Input #fileNum%, text$
   Print text$
Loop
Close fileNum%
' Output:
' First line, with two String items
' NULL                      1            at next tab

[Semeaphoros]

Wenn der Drucker lokal angeschlossen ist, dann kann man darauf direkt ausdrucken, genauso wie man ein File erstellt (also mit Ulrichs Code), indem man als Filenamen "prn" oder "Lpt1" angibt. Gleiches gilt für einen Netzwerkdrucker, sofern dieser mit einem lokalen Port (Lptx, wobei x für 1 bis 3, manchmal auch höher gilt) verbunden ist und  nicht direkt über eine Netzwerkverbindung angesprochen wird.

[jens1979]

Das mit dem Drucken auf LPT1 und dem schreiben ins File klappt super. Danke erstmal.

Jetzt würd ich naturlich noch gern 'ne Abfrage einbauen auf welchen LPT gedruckt werden soll ... das ist auch soweit kein Problem, ABER kann ich nen USB Port ansprechen ?

Jens

[Semeaphoros]

Kaum, es sei denn der Drucker bietet eine "Pseudo-Netzwerkverbindung", mit der sich dann ein Mapping machen liesse. Drucken auf diesem Weg geht nur auf die alten Dos-Ports PRN und LPTx

[jens1979]

Okay dann brauch ich an der Stelle nicht weiter suchen.

Ich danke euch.


Jens

[koehlerbv]

Zunächst mal: Habe heute wieder was dazugelernt wegen der Output-Umleitung auf Drucker    An DIE Möglichkeit hatte ich gar nicht gedacht.

Für das USB-Drucken: Bei installiertem Windows-Netzwerk könnte man natürlich auch seinen USB-Drucker freigeben und als Netzwerkdrucker zum Bleistift auf LPT2 / LPT3 mappen. Dann ginge das auch mit dem Drucken auf USB.

Guckst Du zum Beispiel hier:
http://www.dbforums.com/t858793.html

HTH,
Bernhard

[Semeaphoros]

Stimmt, das wäre dann zweimal hinter dem Rücken durch, hatte ich doch auch schon mal gemacht, vor laaaaaaaaaanger Zeit.