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;

←解決時は質問者本人がここをチェックしてください。

戻る