tif画像を印刷したい (ID:44547)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 最初の質問のコードをコピペして，実行してみました． 手元の Tiff 画像，シングル，マルチとも印刷できました． Printer.Canvas.StretchDraw(PrintRect,Image1.Picture.Bitmap); と，Picture.Bitmap にすると，マルチ Tiff は印刷できませんでした．空白となりました． TIFF 画像には，いろいろな種類があります．それが影響しているのかも知れません． http://sadoyama.sakura.ne.jp/world/htm/note/002_09_tif.htm 以下のコードではどうでしょうか． 手元の Tiff 画像では印刷できました．といっても，最初のコードも印刷できたのですが． 動作確認環境は，Windows 7 U64(SP1) + Delphi XE3 Pro VCL-32 です． procedure TForm1.Button3Click(Sender: TObject); var WIC : TWICImage; PrintRect : TRect; begin WIC := TWICImage.Create; try WIC.LoadFromFile(TIFFファイル名); Image1.Picture.Assign(WIC); Image1.Update; 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, WIC); except Printer.Abort; raise; end; Printer.EndDoc; finally WIC.Free; end; end;