印刷方法 DELPHI6.0

のり 2003-12-03 22:42:08 No: 5901

指定した場所だけ印刷したい場合、どのようにすればいいでしょうか？

たとえばForm全部や、Canvasの上だけ、なにかのコンポーネントだけ
などの印刷はできるでしょうか？

印刷する場合に、TPrintDialogを使うのかと思い調べているのですが
、どうも理解できないので、教えてください。

sadoyama URL 2003-12-06 08:48:15 No: 5902

resがつかないようなので、
私なら、「TPaintBox上の画像を印刷する場合には」に対する
2003/12/03 Mr.XRayさんの回答のうち、
指定範囲を画像として取り込み印刷する、を採用します。

Mr.XRAY URL 2003-12-06 10:02:52 No: 5903

レスが付いたようなので (^_^)

のりさんの質問の内容だと，どんなことを想定してお答えしてよいのか
不明なので，静観していました．
Delphiのバージョンがないのですが，以下はDelphi5で確認しました．

例えばButtonを印刷するのなら(自分自身の印刷例)，

procedure TForm1.Button1Click(Sender: TObject);
begin
     Printer.BeginDoc;
     try
       Button1.PaintTo(Printer.Canvas.Handle,1000,2000);
     finally
       Printer.EndDoc;
     end;
end;

Form1を印刷するのなら

procedure TForm1.Button2Click(Sender: TObject);
begin
     Printer.BeginDoc;
     try
       Form1.PaintTo(Printer.Canvas.Handle,300,500);
     finally
       Printer.EndDoc;
     end;
end;

あるいは，

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Print;
end;

などを試してみて下さい．これらが希望のものでなければ，また
質問してみてはいかがでしょうか．

のり 2003-12-09 02:02:01 No: 5904

sadoyamaさん、Mr.XRAY さんレスありがとうございます。

指定したコンポーネントを印刷などはできました。

質問が解りにくいようで、すいませんでした。
今やりたいことは、TPaintBoxだったらCanvasの上だけを印刷したり
TabControlのCanvasだけを印刷したりなどをやりたいと思っています。

>2003/12/03 Mr.XRayさんの回答のうち、
>指定範囲を画像として取り込み印刷する、を採用します。

を見たんですが、私には理解できませんでしたので詳しくしりたいので
もしよろしかったら、ご教授願います。

Mr.XRAY URL 2003-12-09 07:45:05 No: 5905

画像として印刷するのでしたら，

http://halbow.cool.ne.jp/Notes/N009.html

を参考にして下さい．のりさんのスキルがわかりませんが，
このページの罫線で囲まれたコードはコピーandペーストで
確実に動作します(確認済み)．

このページのコードをまず，動作させてみて，それから，希望の
動作に修正していくことができると思います．

これは画像として印刷する場合です．
TPaintBoxのCanvasに描画したのと同じようにプリンタに印刷したい
場合は違います．

のり 2003-12-09 20:15:07 No: 5906

ありがとうございます！！

スキルはプログラム組み始めて８ヶ月程度です＾＾；