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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
9 r: L+ i  v. u& A5 w! ~& E" I- x4 x7 H* {所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
' l5 A- D2 z4 s2 h就马上传了上来。 </P>
9 a7 R' @* m$ z* x) Y8 j. X<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
. w* n, B, I. o+ {0 e8 k{
% m1 l- J1 o' M! k; ?9 Schar *ADevice, *ADriver, *APort;
THandle DeviceMode;
5 S( e/ J! F) ]  l) t  MPDeviceMode DevMode;
int length,width;
6 r4 j3 T" [# q" Y% _- `  length=1400;
  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
; l8 O4 r  y9 W, Y, x# V  ADevice =new char[100];
  ADriver =new char[100];
0 @$ O& ~# z) @& F/ ?, h; ^  APort =new char[100];
  //获取打印机
5 a2 O" i+ G: R% h/ p2 M: |* h  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
5 ^  H3 @  P' f2 `7 \( ^+ D  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
& ]$ [2 s* n+ r5 R! ]7 ?9 o9 }7 ]  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
  DevMode-&gt;dmPaperLength=length;
, L% U1 {! u6 f& U- W. P$ C2 |$ J/ v  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
* i3 e1 T" `: [/ p) C3 ?  Printer()-&gt;BeginDoc();
/ M$ O, h1 h7 @$ W% Q  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
+ [& O6 L5 i- M  Printer()-&gt;NewPage();
  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
. P# W# B  a$ r) j" r% {' B( S  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
} </P>