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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
; |( Y; o+ q+ ?- K$ r9 `6 l4 h<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
0 _" W! X; X0 k7 x5 q{
* x; ]  @; h+ d3 gchar *ADevice, *ADriver, *APort;
( S- t% A" D$ D6 ]0 [3 QTHandle DeviceMode;
PDeviceMode DevMode;
: |" T2 _/ N) y1 vint length,width;
/ m- y- i0 {; k. |! ?; D  length=1400;
4 I! g; c! J( u- H( E5 E& e  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  ADevice =new char[100];
  ADriver =new char[100];
  APort =new char[100];
8 W" G, N9 M+ |- J; i' Q6 a( \  //获取打印机
# _' }, i! m2 q+ \; s  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
* |, u: G; C7 Q9 E% z" @  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
0 ~0 E/ U- y: @  R' x  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
# S/ u6 F5 ?- Q* f  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
  DevMode-&gt;dmPaperLength=length;
  DevMode-&gt;dmPaperWidth=width; </P>
; m' }3 \' \0 P& L. M' K<>  //测试打印
  Printer()-&gt;BeginDoc();
9 h0 r, r- y+ A  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  Printer()-&gt;NewPage();
  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
" Y7 |  y) W; T8 i& E  ]( I6 v' }, X} </P>