uses Printers;

procedure TForm1.Button1Click(Sender: TObject);

var tm : TTextMetric;    

    i : integer;

begin    

 if PrintDialog1.Execute then    

  begin        

   Printer.BeginDoc;        

   Printer.Canvas.Font.Handle := GetStockObject(DEVICE_DEFAULT_FONT);        

   GetTextMetrics(Printer.Canvas.Handle, tm);        

   for i := 1 to 10 do Printer.Canvas.TextOut(100,i * tm.tmHeight + tm.tmExternalLeading,'Test');       Printer.EndDoc;    

  end;

end;

unit Esc1;

 

interface

 

uses

  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

  Forms, Dialogs, StdCtrls;

 

type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{ add the printers unit }

uses

   Printers;

 

{$R *.DFM}

 

{ declare the "PASSTHROUGH" structure }

type TPrnBuffRec = record

  BuffLength : word;

  Buffer : array [0..255] of char;

end;

 

 

procedure TForm1.Button1Click(Sender: TObject);

var

  Buff : TPrnBuffRec;

  TestInt : integer;

  s : string;

begin

 

{ Test to see if the "PASSTHROUGH" escape is supported }

  TestInt := PASSTHROUGH;

  if Escape(Printer.Handle,

            QUERYESCSUPPORT,

            sizeof(TestInt),

            @TestInt,

            nil) > 0 then begin

 

  { Start the printout }

    Printer.BeginDoc;

 

  { Make a string to passthrough }

    s := ' A Test String ';

 

  { Copy the string to the buffer }

    StrPCopy(Buff.Buffer, s);

 

  { Set the buffer length }

    Buff.BuffLength := StrLen(Buff.Buffer);

 

  { Make the escape}

    Escape(Printer.Canvas.Handle,

           PASSTHROUGH,

           0,

           @Buff,

           nil);

 

  { End the printout }

    Printer.EndDoc;

  end;

end;

 

end.

procedure TForm1.Button1Click(Sender: TObject);

// © Song

Var ScaleX, ScaleY: Integer;

Begin

 Printer.BeginDoc;

 With Printer Do

  try

   ScaleX:=GetDeviceCaps(Handle,LogPixelsX) div PixelsPerInch;

   ScaleY:=GetDeviceCaps(Handle,LogPixelsY) div PixelsPerInch;

   Canvas.StretchDraw(Rect(0,0,Image1.Picture.Width*ScaleX,Image1.Picture.Height*ScaleY),Image1.Picture.Graphic);

  finally

   EndDoc;

  end;

End;