[Delphi] Stampa

[Traxsung]

Potreste suggerirmi come posso stampare con delphi utilizzando la stampante?? In particolare mi interesserebbe sapere come riuscire a stampare nella posizione del foglio che voglio io.
Grazie

[cdimauro]

La stampante ha un Canvas, esattamente come una Form o un controllo, sul quale puoi disegnare.

Ti consiglio di guardare la guida in linea di Delphi perché, se non ricordo male, dovrebbe esserci un esempio su come fare...

[Traxsung]

cdimauro... purtroppo si nella guida in linea sia in rete, non trovo niente. Potresti scrivermi un pezzetto di codice... per farmi capire??

[cdimauro]

Al volo:

uses
Printers;

procedure ProvaStampa;
var
W, H : Longint;

procedure DrawLine(Canvas: TCanvas; x1, y1, x2, y2: Integer);
begin
with Canvas do begin
MoveTo(x1, y1);
LineTo(x2, y2);
end;
end;

procedure DrawRect(Canvas: TCanvas; x1, y1, x2, y2: Integer);
begin
with Canvas do begin
MoveTo(x1, y1);
LineTo(x2, y1);
LineTo(x2, y2);
LineTo(x1, y2);
LineTo(x1, y1);
end;
end;

begin
with Printer, Canvas do begin
W := TextWidth('W');
H := TextHeight('W');
try
BeginDoc;
TextOut(0, 0, 'Prima riga, prima colonna');
TextOut(W, H, 'Seconda riga, seconda colonna');
DrawRect(Canvas, W * 2, H * 2, W * 3, H * 3);
finally
EndDoc;
end;
end;
end;

Non garantisco sulla sua correttezza, ovviamente :p, ma dovrebbe risolvere i tuoi problemi... ;)

[Traxsung]

Grazie cdimauro... faccio delle prove e ti faccio sapere ;)