掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
全体画面を印刷するには？ (ID:6647)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
追々詳しいresがたくさんつくと思います。 公式には、TPrinter を使う事になっています。 TForm.CanvasやTImage.Canvasに画像を描画するのと同様に TPrinter.Canvasに描画を行い、印刷実行を指示するだけです。 [例] uses にPrintersを追加 PrintDialogコンポを配置 var Rect: TRect; begin if not PrintDialog1.Execute then Exit; // Printer.Canvas上の描画範囲を指定 Rect.Top := ?; Rect.Left := ?; Rect.Right := ?; Rect.Bottom := ?; Printer.BeginDoc; Printer.Canvas.StretchDraw(Rect, RBMP); Printer.EndDoc; end; EndDoc(ument?)が印刷開始指示です。 しかし、用紙の選択はまだ良いとしても、 プリンタ機種の指定は面倒ですし、 さまざまな細かい指定に至っては、書籍等にあるとおりにしても実現しないことが少なくありません。 そもそも、プリンタにその機能があるかどうかも確認できない場合があります。 そういう訳で、わが国では中村拓男氏の労作NkPrinterを使うことになっているようです。 http://www.asahi-net.or.jp/~HA3T-NKMR/deldown.htm よりnkprn052.lzhをダウンロードします。 解凍したフォルダ Doc\Help\にあるヘルプを読むと、 プリンタの扱いは自由自在にできるようになります。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.