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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
7 W' A% @' [* E* L. D: j- r所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
/ P5 |% o  a% p就马上传了上来。 </P>
<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
! u& \/ c( P* B; I1 Ichar *ADevice, *ADriver, *APort;
! K' R4 h3 w" _- J& Z" cTHandle DeviceMode;
: v; e! u9 }& L; V9 C& }PDeviceMode DevMode;
* m( M2 \6 d' @7 @( {2 t3 Q2 Iint length,width;
  length=1400;
$ D; w9 N- m3 q' T& ~! n  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  ADevice =new char[100];
  ADriver =new char[100];
  APort =new char[100];
" Q0 g2 G9 x/ y; {. l0 O, W# D7 @  //获取打印机
  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
: R4 g* S) a  z/ x  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
* e& \, v4 k) u- t& j* H9 E; w: N  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
! u; g( L2 Y2 K  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
! T2 Y/ q7 w) [  z8 c- P7 Y  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
  DevMode-&gt;dmPaperLength=length;
  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
" h7 {, s$ Z7 O9 l2 g9 z  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  Printer()-&gt;NewPage();
  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
: V( ]4 g6 x7 V5 f. w9 f: x  Printer()-&gt;NewPage();
/ a6 v" p' d7 L  Printer()-&gt;EndDoc();
} </P>