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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
2 D. N9 h' T; X) Y! F所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
/ ~  S0 e9 ?( }( m5 X<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
char *ADevice, *ADriver, *APort;
4 ^0 x% j. A0 p+ ?* V: bTHandle DeviceMode;
1 W( }9 K3 b) o1 ^# c! b6 ]( i3 QPDeviceMode DevMode;
3 O6 d% H+ l0 m& s& wint length,width;
) s7 u! k" A  m) j- l) q- e  Q  length=1400;
  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  ADevice =new char[100];
  ADriver =new char[100];
- l" S" ]) r* F, e; m  APort =new char[100];
  //获取打印机
1 F5 S4 ^  e2 E' ~" r  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
2 h. C! _, `8 b  //获取PDevMode结构
& z0 n3 }" W/ N' B/ E" D1 K  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
; s% K% m! D% m5 u4 I& ?  v* H  //设定可以修改的值
2 v; u- O# w% X( F  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
( g% F3 B9 d/ t* X  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
3 O+ F3 z* v5 n5 O5 m  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
  DevMode-&gt;dmPaperLength=length;
" `! N$ O* T" [3 [  DevMode-&gt;dmPaperWidth=width; </P>
2 w- h. K! C. R8 P& T8 d<>  //测试打印
  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
0 w- x5 ?" a3 Y) p7 j. g9 p  Printer()-&gt;NewPage();
  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
% ^$ L# Q( W" ?" z  s" a7 n$ n4 C* Q  Printer()-&gt;NewPage();
: ^6 q. _8 O6 h7 q; q, z  Printer()-&gt;EndDoc();
} </P>