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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
0 a- k, w) W" ]所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
' `# l1 r0 B4 p7 A6 t2 K就马上传了上来。 </P>
<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
char *ADevice, *ADriver, *APort;
$ Z+ `( h! h* v( b1 C( ^THandle DeviceMode;
1 W* j5 j/ G9 l5 {PDeviceMode DevMode;
: X! {! @( k" L/ H2 Eint length,width;
  length=1400;
, t2 b  b6 l) G8 B  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
" b, _; R7 }  e" U3 e& @" r! s$ c  ADevice =new char[100];
  ADriver =new char[100];
" F4 V7 P6 p4 w: U) x9 o% g  APort =new char[100];
  //获取打印机
6 v9 T1 N0 Z# z. Z5 T  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
  //设定可以修改的值
0 Z$ @, h5 p' x4 L* K9 n  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
) W2 ^9 ]6 c- L3 K, {& V& f; Z  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
- E, w4 o* n3 M% T3 ~) A  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
5 R9 x$ W$ p  T, Y( c  DevMode-&gt;dmPaperLength=length;
  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
3 h0 B1 t' t$ {  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  Printer()-&gt;NewPage();
  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
} </P>