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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
; e8 W7 [* }+ t+ Q* d" t  R0 G就马上传了上来。 </P>
0 W7 N8 a6 u( x9 U% @<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
) i9 W4 S$ [0 h6 d6 Z9 @{
char *ADevice, *ADriver, *APort;
THandle DeviceMode;
3 b, p" k* k% Q* I0 \& U+ APDeviceMode DevMode;
int length,width;
  length=1400;
* Z: b7 [6 d* s* q7 S  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  ADevice =new char[100];
  ADriver =new char[100];
  APort =new char[100];
( F0 M+ Z- i3 r2 _  //获取打印机
  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
7 U8 J; [: E- J3 G' X% ]/ o7 \  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
: k0 Z) G4 g1 }: Y: ~  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
7 w# l' P1 V# @$ x+ p2 O8 t4 K+ l  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
, b, q6 r0 z) b/ w- Y2 h# [% |# v  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
8 |' B7 a0 Q# ?4 N3 N  DevMode-&gt;dmPaperLength=length;
" o7 P: l" \5 \2 b. s2 u& ~  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
7 p: G7 l- A" g+ g5 w5 e8 x/ c# A) z  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
7 f( y! j- H' s  e  Printer()-&gt;NewPage();
  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
' A1 W( n/ v9 ]1 F+ ?# t, X7 s} </P>