ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

Quest 2011/04/06(ｿｽｿｽ) 10:53:47

Delphi2007ｿｽﾅフｿｽHｿｽ[ｿｽｿｽｿｽｿｽRichEditｿｽｿｽﾚゑｿｽｿｽAForm.Printｿｽﾅ茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
RichEditｿｽﾌ抵ｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌコｿｽｿｽｿｽ|ｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽoｿｽｿｽｿｽｿｽｿｽForm.Printｿｽ齡ｭｿｽﾅ茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

Mr.XRAY 2011/04/08(ｿｽｿｽ) 13:42:14

ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾍ，Mr.XRAYｿｽﾅゑｿｽｿｽD

>ｿｽoｿｽｿｽｿｽｿｽｿｽForm.Printｿｽ齡ｭｿｽﾅ茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ

ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽC

>Form.Printｿｽﾅ茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
>RichEditｿｽﾌ抵ｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽﾈので厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽｿｽﾜゑｿｽｿｽｿｽD
ｿｽﾈ会ｿｽｿｽﾌスｿｽｿｽｿｽbｿｽhｿｽﾌ会ｿｽｿｽﾌ包ｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽｿｽQｿｽlｿｽﾉなゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽD
ｿｽｿｽｿｽｿｽmｿｽFｿｽﾍゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽDｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽD

checkboxｿｽｿｽradiobuttonｿｽﾌ茨ｿｽｿｽｿｽﾉつゑｿｽｿｽｿｽ
http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200909/09090016.txt

Quest 2011/04/08(ｿｽｿｽ) 16:08:07

Mr.XRAYｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾍ。

ｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄ、ｿｽ]ｿｽﾞ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽuｿｽ齡ｭｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾉはゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ
ｿｽ蛯ｵｿｽｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾟにコｿｽ[ｿｽhｿｽｿｽﾚゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽLｿｽﾌコｿｽ[ｿｽhｿｽｿｽ
if PrinterSetupDialog1.Execute then Form1.Print;
ｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾊゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

function PrintWindow(hwnd: HWND; hdcBlt: HDC; nFlags: UINT): BOOL; stdcall; external 'user32.dll';
var
  BMP: TBitmap;
  ALeft: Integer;
  ATop: Integer;
  AWidth: Integer;
  AHeight: Integer;
  ARect: TRect;
begin
  if PrinterSetupDialog1.Execute then
  begin
    BMP := TBitmap.Create;
    try
      BMP.Height := Form1.ClientHeight;
      BMP.Width := Form1.ClientWidth;
      BMP.Canvas.Lock;
      try
        PrintWindow(Form1.Handle, BMP.Canvas.Handle, 1);
      finally
        BMP.Canvas.Unlock;
      end;
      Printer.BeginDoc;
      try
        ALeft   := 0;
        ATop    := 0;
        AWidth  := Printer.PageWidth;
        AHeight := Trunc (AWidth * BMP.Height / BMP.Width);
        ARect := Rect(ALeft, ATop, AWidth, AHeight);
        Printer.Canvas.StretchDraw(ARect, BMP);
      finally
        Printer.EndDoc;
      end;
    finally
      BMP.Free;
    end;
  end;
end;

Quest 2011/04/08(ｿｽｿｽ) 16:12:56

ｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽ黷ｾｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。

function PrintWindow(hwnd: HWND; hdcBlt: HDC; nFlags: UINT): BOOL; stdcall; external 'user32.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
  BMP: TBitmap;
  ALeft: Integer;
  ｿｽE
  ｿｽE
  ｿｽE
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

Created by board of various Programming Library.