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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
+ L! [) Z" P% T) |所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
6 I& E5 z/ x# z+ _8 n就马上传了上来。 </P>
<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
# w# Q' m1 N1 R3 ^9 J4 G{
2 O  P: @5 b; \& f& v9 M4 I' \char *ADevice, *ADriver, *APort;
THandle DeviceMode;
PDeviceMode DevMode;
int length,width;
5 Q+ ?) S# q2 J. o  length=1400;
  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  ADevice =new char[100];
  ADriver =new char[100];
  APort =new char[100];
  //获取打印机
$ |( m3 V' c% d8 n" ?  A$ l3 w  z  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  A- j  u, J* i9 l7 y7 x# C  //获取PDevMode结构
# P3 Q( j* e* S  C( Q$ `  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
$ r8 g! E% }4 Y  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
  DevMode-&gt;dmPaperLength=length;
  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  Printer()-&gt;NewPage();
  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
0 o! }' h% D+ D} </P>