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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
+ {9 G4 u8 U% [( o所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
9 h+ [+ |  k! W% W  p3 W# \( f, l<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
0 H7 q" t) w& X$ j0 R3 Schar *ADevice, *ADriver, *APort;
THandle DeviceMode;
! D* n$ l! l- v3 \) k2 Z9 o$ Y5 EPDeviceMode DevMode;
) d7 ^7 e3 _4 E% |; X4 B, X' Mint length,width;
  u9 {/ \& O3 G) X  length=1400;
  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
0 c: ]3 b) V9 _6 V  U' ]! U) i  ADevice =new char[100];
  ADriver =new char[100];
0 @4 W+ O2 U' }" T  Z  ]  APort =new char[100];
+ v/ W( f  U5 C' `" b  \# W# `  C  //获取打印机
  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
( W9 j" J$ F% K. M3 B! S( c2 ?/ }. g  //获取PDevMode结构
- F1 j; i8 T3 t2 |4 h/ j  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
! D+ P4 B8 q" l& Y* ]; o0 _. y  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
( M8 i, s7 Y, ~+ P, Y  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
2 T- h4 T/ V* h" b  B8 \9 o; U3 ~; j. `: A  DevMode-&gt;dmPaperLength=length;
8 A  ]: [1 H4 w" _* M. U; g  DevMode-&gt;dmPaperWidth=width; </P>
5 u, L. R1 b* `, G<>  //测试打印
  Printer()-&gt;BeginDoc();
5 |0 ]" a! u$ v  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  Printer()-&gt;NewPage();
  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
3 z5 @9 q. b2 {+ G7 l& D$ a+ M} </P>