C++Builder编程中动态更改自定义打印纸张

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
& d6 O6 ]7 ]8 z/ v所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
5 `7 _8 v- ]! d* a6 Wchar *ADevice, *ADriver, *APort;
THandle DeviceMode;
6 @& K9 M" H% S! fPDeviceMode DevMode;
int length,width;
. C5 j7 S+ ?! a5 c% Z  length=1400;
  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
/ e2 ~+ M5 H7 {* C. w6 m4 C+ s  ADevice =new char[100];
0 T7 U+ f6 ~- x; ~. y8 V  ADriver =new char[100];
+ ~2 O5 g; ~8 H  APort =new char[100];
2 L( ]/ Y5 o, N: G  //获取打印机
# q) ^/ z8 i6 _; n; h5 t1 ?  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
3 n8 u+ X" z: n' x0 m, {- e1 o3 P+ }  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
+ Q* h0 T1 T- c9 g! ]: D& c+ E' f  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
  DevMode-&gt;dmPaperLength=length;
3 O  p3 P% y2 N* H; C1 Y! q  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  Printer()-&gt;NewPage();
: c) p3 ]3 @) }; \% M- N1 z( J  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
" U1 n3 s  v' b7 z6 w7 f  Printer()-&gt;NewPage();
# u- R: s( D& E7 }6 C  Printer()-&gt;EndDoc();
} </P>