盒子论坛 v2.1

试试以下代码：

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure CopyScreenToPrinter;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CopyScreenToPrinter;
var
Canvas:TCanvas;
DC:HDC;
begin
  DC := GetDC (0);              //取得屏幕的 DC
  Canvas := TCanvas.Create;     //创建一个CANVAS对象
  Canvas.Handle := DC;          //把句柄指向屏幕
  //把整个屏幕复制到BITMAP中
  Printer.BeginDoc;
  Printer.Canvas.CopyRect(Rect (0, 0, Screen.Width, Screen.Height),
                          Canvas,
                          Rect (0, 0, Screen.Width, Screen.Height));
  Canvas.Free;                  //释放CANVAS对象
  ReleaseDC (0, DC);            //释放DC
  Printer.EndDoc;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyScreenToPrinter;
end;

end.

----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……

信息

登陆以后才能回复