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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
8 e/ }( }' f4 I+ K1 Q<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
2 C0 l2 G8 i: M$ B2 ~' W4 q{
( o( }8 k7 x5 b9 Z, r" ]char *ADevice, *ADriver, *APort;
THandle DeviceMode;
! Z. E# x2 M  m( hPDeviceMode DevMode;
. f# b' q, z! v# T& J$ {int length,width;
) [7 ]4 h7 O! O6 E% v  length=1400;
  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
0 r  \/ \4 q2 h' ~% j  ADevice =new char[100];
  ADriver =new char[100];
" Z( y/ s) [, [  APort =new char[100];
  //获取打印机
+ f% q2 c* p7 X, U/ C+ Z  a  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
) x0 j- {  C5 ?/ ?8 h, s  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
! o- Z& ?1 h, L' w: d; N2 j  //设定可以修改的值
0 E; d! ?# v" M# l2 ?& O! L' t0 d3 N  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
$ t6 s; H! ?8 A3 _( x/ `& w  //设定要修改的值
& _/ n( h% I3 v* v1 g8 @5 B( [/ E/ H  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
3 L- o9 j4 U1 b; u9 v2 z- B  DevMode-&gt;dmPaperLength=length;
  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
  Printer()-&gt;BeginDoc();
- A  A2 ~7 X) N$ [  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
) Q2 \7 i: L6 d7 [4 m4 I& L  Printer()-&gt;NewPage();
; Y2 O4 J" _! @$ J( w! z2 Q  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
} </P>