掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
tif画像を印刷したい (ID:44544)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
http://www.geocities.jp/asumaroyuumaro/program/tips/Printer.html を参考にしてtif画像の印刷するプログラムを作成してみました。 uses Printers; procedure TForm1.Button1Click(Sender: TObject); var PrintRect :TRect; begin Image1.Picture.LoadFromFile('C:\12345.tif'); PrintRect :=Bounds(GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX), GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY), GetDeviceCaps(Printer.Handle, HORZRES), GetDeviceCaps(Printer.Handle, VERTRES)); Printer.BeginDoc; try Printer.Canvas.StretchDraw(PrintRect,Image1.Picture.Graphic); except Printer.Abort; raise; end; Printer.EndDoc; end; こちらで印刷を行うと、 白紙で印字され、印刷されません。 PDFに変換するCubePDFというソフトを使用するときちんと表示されたPDFファイルが作成されます。 http://www.cube-soft.jp/cubepdf/ 環境はXE3 PRO Windows 7 Homeです。 わかりにくい文章ですみません。 どうぞよろしくお願いします。m(__)m
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.