[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 , ma dovrebbe risolvere i tuoi problemi...

[Traxsung]

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