掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
画像を拡大して印刷するには？ (ID:23585)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Imageの画像を拡大して、印刷処理を行いたいのですが 『Microsoft Office Document Image Writer』に出力すると、うまく印刷されています。 直接プリンターに出力すると、印刷されません。 直接プリンターに出力したいのですが、何が原因で、どのように解決すればよいのか分かりません。 御存知の方あれば宜しくお願いします。 環境は Delphi5 WinXPです。 TNkPrinterコンポーネントを使用しています。 procedure StretchImage(Image : TImage); var TempBmp : Tbitmap; begin TempBmp :=TBitmap.Create; TempBMP.Width := 1900; TempBMP.Height := 800; StretchBlt(TempBmp.Canvas.Handle,0,0,Tempbmp.Width,TempBmp.Height, Image.Canvas.Handle,0, 0,Image.Width, Image.Height, SRCCOPY); Image.Picture.Bitmap.Assign(TempBmp); TempBmp.Free; end; procedure TForm1.Button1Click(Sender: TObject); var BMP : TBitmap; begin Bmp := TBitmap.Create; try StretchImage(Image1); Bmp.Assign(Image1.Picture); NkPrinter.BeginDoc(''); NkPrinter.Canvas.Draw(1000, 230, BMP); NkPrinter.EndDoc; finally BMP.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.