CB編程中動態更改自定義打印紙張

2019-11-17 05:43:46

字體：大中小

來源：轉載

供稿：網友

　　因網上只有Delphi例子本人在用CB編寫時發現有一些例子不能用，
所以一生氣就索性查了查資料自己寫了，怕網友們在用編程時也遇見此類情況，
就馬上傳了上來。

void __fastcall TForm1::BitBTn1Click(TObject *Sender)
{
char *ADevice, *ADriver, *APort;
THandle DeviceMode;
PDeviceMode DevMode;
int length,width;
length=1400;
width=2410;//設定自定義紙張的尺寸單位為0.1毫米
ADevice =new char[100];
ADriver =new char[100];
APort =new char[100];
//獲取打印機
PRinter()->GetPrinter(ADevice, ADriver, APort,DeviceMode);
//獲取PDevMode結構
DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
//設定可以修改的值
DevMode->dmFields = DevMode->dmFieldsDM_PAPERSIZE;
DevMode->dmFields = DevMode->dmFieldsDM_PAPERLENGTH;
DevMode->dmFields = DevMode->dmFieldsDM_PAPERWIDTH;
//設定要修改的值
DevMode->dmPaperSize=DMPAPER_USER;//設為自定義紙張
DevMode->dmPaperLength=length;
DevMode->dmPaperWidth=width;

//測試打印
Printer()->BeginDoc();
TextOut(Printer()->Handle, 0, 0, "-----------------",17);
Printer()->NewPage();
TextOut(Printer()->Handle, 0, 0, "++++++++++++++++++",18);
Printer()->NewPage();
Printer()->EndDoc();
}

上一篇：C++中在程序中重啟自己的一種方法

下一篇：C++中如何顯示/隱藏IE瀏覽器工具窗口