unit3.pas

Delphi 源码,关于打印方面的一个小程序

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    PrintDialog1: TPrintDialog;
    PrinterSetupDialog1: TPrinterSetupDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
 uses printers;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
VAR
strect:Trect;   //定义打印输出矩形框的大小

temhi,temwd:integer;

begin

if printdialog1.execute then

   begin

   temhi:=image1.picture.height;

   temwd:=image1.picture.width;

      while (temhi printer.pageheight div 2)and(temwd printer.pagewidth div 2) do

            //将图形放大到打印页面的1/2大小

              begin

              temhi:=temhi+temhi;

              temwd:=temwd+temwd;

              end;
         with strect do    //定义图形在页面上的中心位置输出


        begin

              left:=(printer.pagewidth -temwd) div 2;

              top:=(printer.pageheight-temhi) div 2;

              right:=left+temwd;

              bottom:=top+temhi;

              end;

   with printer do

   begin

   begindoc;

canvas.stretchdraw(strect,image1.picture.graphic);

               //将放大的图形向打印机输出

   enddoc;

   end;

end;

end;
procedure TForm1.FormCreate(Sender: TObject);
begin
    memo1.lines.loadfromfile('c:\dos\os2.txt');
end;

end.