Print-Befehl auch bei Netzwerkdruckern

[Mikro]

Hmmm.... sehr komisch. Jetzt funktioniert das Drucken wieder, hab mir auch gedacht, dass die Befehle noch dabei müssen, hab sie aber nicht mehr gefunden... Der druckt aber jetzt voll den Sch*** aus, sehe die Memo, weiß also, was er ausdrucken sollte.
Der druckt nur eine Zeile, wobei er bei der ersten Ziffer sogar noch ne andere Zahl hinschreibt... kurios :-D

[DGL-luke]

Hm.

Vorschlag zum Testen:

Delphi-Quellcode:

Printer.BeginDoc;

Printer.Canvas.Font := Memo1.Font;

Text := Memo1.Text; // Text IS string

brect := rect(10,10,Printer.Canvas.Width-11,Printer.Canvas.Height-11); //brect IS TRect

DrawText(Printer.Canvas.Handle, @Text[1],Length(Text),brect,DT_LEFT);

Printer.EndDoc;

[Mikro]

Canvas hat keine Breite und keine Höhe ;-) zumindest beschwert der sich bei mir, undefinierter Bezeichner... Hast in der 4ten Zeile nen ; vergessen ;-) Danke für deine Bemühungen, echt klasse von dir... Ah ; haste schon gefunden :-)

[DGL-luke]

Oh damn, stimmt, dann müssen wir GetDeviceCaps anzapfen.

Delphi-Quellcode:

Printer.BeginDoc;

Printer.Canvas.Font := Memo1.Font;

Text := Memo1.Text; // Text IS string

brect := rect(10,10,GetDeviceCaps(Printer.Canvas.Handle,HORZRES)-11,GetDeviceCaps(Printer.Canvas.Handle,VERTRES)-11); //brect IS TRect

DrawText(Printer.Canvas.Handle, @Text[1],Length(Text),brect,DT_LEFT);

Printer.EndDoc;

So sollts dann aber klappen.

[Mikro]

wunderbar, jetzt druckt er wieder... auch alles :-D
Muss dann am Montag oder so im Netzwerk probieren, vielen Dnak...

[Mikro]

Hej, konnte es jetzt endlich mal ausprobieren. Also es funzt über Netzwerk immer noch nicht. Am Drucker liegt es auch nicht, wenn der lokal angeschlossen ist, klappt es...

[shmia]

Mal grundsätzlich:
unter Windows kann man einen Drucker nur benutzen, wenn er in der Systemsteuerung angelegt wurde.
Es ist dabei gleichgültig, ob der Drucker lokal oder irgendwo im Netzwerk angeschlossen ist.
In der Druckersteuerung kann man dann unter Eigenschaften auch eine Testseite ausdrucken.
Solange die Testseite nicht rauskommt, braucht man über Programmieren oder Fehler im eigenen Programm gar nicht reden.

Den nächste Schritt ist dann, mit WordPad oder WinWord irgend einen Text zu drucken.
Siehe Anhang.
Erst wenn das funktioniert hat, muss man sich Gedanken machen, was man am eigenen Prog. ändern muss,
damit etwas gedruckt wird.

[Mikro]

gut, vll hab ich mich einfach nur blöd ausgedrückt, so das du denkst, dass ich null Ahnung habe.
Ich weiß auch, dass ein Drucker eingerichtet sein muss und habe es auch schon mit Word etc probiert. Selber Drucker funktioniert mit dem Befehl nur an dem PC, an dem er direkt hängt, nicht aber an dem PC, der an ihn über Netzwerk angeschlossen ist.

[Mikro]

hat jmd noch eine Idee, wie ich nen Befehl zum Drucken auch übers Netzwerk bekommen??