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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
) t- |0 t* \. |, ]7 B3 S所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
* U* v  G5 J4 U0 h" X, H5 p$ {1 Gchar *ADevice, *ADriver, *APort;
  v; Y. Z4 J$ `THandle DeviceMode;
8 T: a+ N6 b8 w% c0 @& YPDeviceMode DevMode;
! W6 E( D1 [4 L' x% ]int length,width;
  length=1400;
  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
8 s% W: S& D! F  s+ g  ADevice =new char[100];
6 l" C  p* s/ W( ?: t2 L  ADriver =new char[100];
8 W8 ~+ l; t  j) ?1 |$ t! b  APort =new char[100];
) D8 |0 P: ~6 U3 K  r  //获取打印机
) k6 R. G6 o, P8 ^  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
% i- T0 f4 \5 H- F7 p' l4 h  //获取PDevMode结构
  V$ e3 h9 J3 a; O3 G0 N& N  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
0 f! ~' y: P; v( u' _9 W  //设定可以修改的值
8 g# p! `) f7 I( x$ u# ~& n! B  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
) c- U! K- [3 ]% l8 ?9 ^  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
4 i) R+ ]# s2 e$ f- t7 k6 p3 D  //设定要修改的值
& o$ y# s& V  @  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
  DevMode-&gt;dmPaperLength=length;
) @' Z7 }. V( o5 S8 `" r0 @  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
8 H& k: C/ M* F% k7 @- Y# B  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
6 E! n  _" k* f  Printer()-&gt;NewPage();
  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
) c# u# |, a: i} </P>