如何使用printdialog列印image? |
|
尚未結案
|
|
terry000
一般會員   發表：17 回覆：14 積分：6 註冊：2003-10-22 發送簡訊給我 |
請問各位大大~
要如何使用printdialog來做列印image的問題~ 我使用這個程式
void __fastcall TForm1::PrintDlgClick(TObject *Sender)
{
TPrinter *Prntr=Printer(); Graphics::TBitmap *TempBitmap;
TempBitmap= new Graphics::TBitmap(); TempBitmap= Image1->Picture->Bitmap; TempBitmap->Width = Image1->Width;
TempBitmap->Height = Image1->Height; Prntr->BeginDoc();
Prntr->Canvas->Draw(500,500,TempBitmap);
Prntr->EndDoc();
結果圖片很小.............請各位大大指導一下~謝謝! 發表人 - taishyang 於 2004/02/17 20:13:06
|
|
taishyang
站務副站長   發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
|
|
terry000
一般會員 發表：17 回覆：14 積分：6 註冊：2003-10-22 發送簡訊給我 |
引言:
請問各位大大~
要如何使用printdialog來做列印image的問題~ 我使用這個程式 對不起我試過了..但是還是有bug 可以請大大指點一下嗎
|
|
taishyang
站務副站長 發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
|
|
terry000
一般會員 發表：17 回覆：14 積分：6 註冊：2003-10-22 發送簡訊給我 |
void __fastcall TForm1::PrintDlgClick(TObject *Sender)
{
TPrinter *Prntr=Printer(); Graphics::TBitmap *TempBitmap;
TempBitmap= new Graphics::TBitmap(); TempBitmap= Image1->Picture->Bitmap; TempBitmap->Width = (Image1->Width);
TempBitmap->Height = (Image1->Height); Prntr->BeginDoc();
Prntr->Canvas->StretchDraw(Rect(50,50,Prntr->PageWidth-20,(Prntr->PageWidth*40 div 77)-20), TempBitmap);
Prntr->EndDoc(); } error message: [C++ Error] Unit1.cpp(713): E2293 ) expected 一切拜託啦~
|
|
terry000
一般會員 發表：17 回覆：14 積分：6 註冊：2003-10-22 發送簡訊給我 |
void __fastcall TForm1::PrintDlgClick(TObject *Sender)
{
TPrinter *Prntr=Printer(); Graphics::TBitmap *TempBitmap;
TempBitmap= new Graphics::TBitmap(); TempBitmap= Image1->Picture->Bitmap; TempBitmap->Width = (Image1->Width);
TempBitmap->Height = (Image1->Height); Prntr->BeginDoc();
Prntr->Canvas->StretchDraw(Rect(50,50,Prntr->PageWidth-20,(Prntr->PageWidth*40 div 77)-20), TempBitmap);
Prntr->EndDoc(); } error message: [C++ Error] Unit1.cpp(713): E2293 ) expected 一切拜託啦~
|
|
taishyang
站務副站長 發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
terry000您好:
試試下面這樣
TPrinter *Prntr=Printer(); Graphics::TBitmap *TempBitmap; TempBitmap= new Graphics::TBitmap(); TempBitmap= Image1->Picture->Bitmap; TempBitmap->Width = (Image1->Width); TempBitmap->Height = (Image1->Height); Prntr->BeginDoc(); Prntr->Canvas->StretchDraw(Rect(50,50,Prntr->PageWidth,Prntr->PageHeight) , TempBitmap); Prntr->EndDoc();不過您要換算一下對應到A4紙上的寬與高 順心 |
|
a39225236
一般會員 發表：1 回覆：3 積分：0 註冊：2004-02-09 發送簡訊給我 |
發表時間：2004-02-17 20:05:45
IP:140.130.xxx.xxx 未訂閱
系統時間：2024-05-18 4:36:37
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |