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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
char *ADevice, *ADriver, *APort;
THandle DeviceMode;
PDeviceMode DevMode;
int length,width;
/ A$ r' F0 @8 C  length=1400;
  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
8 @7 [1 {& m3 E2 a' l  ADevice =new char[100];
  ADriver =new char[100];
  APort =new char[100];
. w  h  _5 u$ o. s  //获取打印机
  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
* T- O+ m+ I! k  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
' b3 F+ w2 [1 [8 K% H& j' x  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
& Y! j5 m4 N( ^  t0 }  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
( O4 _- i8 F1 w+ ~1 \3 F  //设定要修改的值
. o9 ~8 m1 G/ y. i) B5 E, q  b& b  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
% O3 z8 k  S. [! [% }& a  DevMode-&gt;dmPaperLength=length;
1 f* b! ]8 x( I7 A4 v  DevMode-&gt;dmPaperWidth=width; </P>
0 C7 |% q7 H2 C) E<>  //测试打印
  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  Printer()-&gt;NewPage();
5 u; c/ {. j3 M! M/ J  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
0 y: J" _3 R3 n; f# {0 m4 Q} </P>