從本地下載一個圖片載入image，在連接列印機列印image部分。下面是我寫的，第一，載入圖片不能失敗了。第二，不知道怎么只列印image部分，求大神不吝賜教，我是剛接觸不久的菜鳥，請別噴我
void __fastcall TForm1::Image1Click(TObject *Sender)
{
Graphics::TBitmap *pic_default;
pic_default = new Graphics::TBitmap;
pic_default->LoadFromFile(BMP_DEFAULT);
Image1->Picture->Bitmap =pic_default;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Button1->Hide();
Form1->Print();
TPrinter *Prntr = Printer(); //創建列印機
TRect r = Rect(200,200,Prntr->PageWidth-200,Prntr->PageHeight-200);
Prntr->Copies = PrintDialog1->Copies;
Prntr->BeginDoc(); //開始列印
Prntr->Canvas->Handle;
Prntr->EndDoc();
}
uj5u.com熱心網友回復：
奉上列印秘法，樓主握次秘法可以吃遍天下影像列印：#include <jpeg.hpp>
#include <gifimg.hpp>
#include <PNGImage.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{ // 載入影像
if(OpenPictureDialog1->Execute()!=true)
{
return;
}
String FilePath=OpenPictureDialog1->FileName;
Image1->Picture->LoadFromFile(FilePath);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TPrinter *Prn=Printer();
Prn->BeginDoc();
TRect rect = Image1->ClientRect;
Prn->Canvas->StretchDraw(Rect(0,0,Image1->Picture->Width*6.00,Image1->Picture->Height*6.00),Image1->Picture->Graphic);
Prn->EndDoc();
}
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/104347.html
標籤：基礎類