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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
; M$ K$ U7 O4 R7 g所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
' D+ ]: Q+ H+ ^<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
8 V, w- W( ]9 M5 p% }+ d* o- b{
/ w5 K% F9 {$ ychar *ADevice, *ADriver, *APort;
THandle DeviceMode;
6 r" `4 i, K2 \PDeviceMode DevMode;
9 G! g' l1 H0 D( Tint length,width;
6 ~) @# q( \$ ~3 S6 x! P$ X, ^0 f  length=1400;
) W+ v$ ~( }& U; T2 r2 z6 z7 l  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  ADevice =new char[100];
2 [2 z; D$ X, t# b4 e  z# c+ t( K4 H6 \  ADriver =new char[100];
. U+ O5 q( x1 D1 q  APort =new char[100];
  //获取打印机
& p5 {) g9 \8 l* q  h2 |% k  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
( C, x2 a6 z. U7 i. V$ M  G& \  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
) p0 Y/ e5 T" T  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
4 E$ T7 o0 t& T* x! }+ |6 F$ J  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
  @1 E$ o# s2 J( T  F  q. z  DevMode-&gt;dmPaperLength=length;
/ |8 V. _  C8 J  \5 k, L# A9 @  DevMode-&gt;dmPaperWidth=width; </P>
" Q5 |% s2 [1 Y6 }7 t% J<>  //测试打印
' c& N  M2 X' C" G8 E$ F+ [$ D: v3 s# c  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
2 v5 H/ d* M6 S3 j% @  d  Printer()-&gt;NewPage();
" x/ j) L+ I" C+ L; N+ T: U  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
9 r7 o' @9 ~( G# _' l9 R; g  a8 A} </P>