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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
% J( D5 E7 i8 T5 C( t所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
4 L. }. x" ?  T1 C<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
char *ADevice, *ADriver, *APort;
, |1 L1 c" y  k2 z3 pTHandle DeviceMode;
2 P5 s; k# I. g) n4 D7 EPDeviceMode DevMode;
int length,width;
$ _! T! d' O) Y, p. H  length=1400;
6 Z3 {9 U. M2 k0 z% M+ A  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  ADevice =new char[100];
  ADriver =new char[100];
: @# V# S% L" N% d  APort =new char[100];
  //获取打印机
5 V1 F- n$ k3 ~. o8 T, X  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
+ A8 G, @) W* C' y  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
' g' v8 C, n! P) d9 ?1 @  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
2 |, N4 ?# z" l9 }2 V* @2 o! u  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
2 R6 Z8 r, p# L7 i+ G2 n, O3 ~% j% L  //设定要修改的值
" o  c: h% f+ S0 ?' d, O  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
. j# t1 H5 _' a: Z  DevMode-&gt;dmPaperLength=length;
  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
# Y1 S' [6 C: }' W. D8 @/ _2 [  Printer()-&gt;BeginDoc();
" {5 n$ H6 d3 s' S  v. d7 R  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  Printer()-&gt;NewPage();
$ a! p3 \! }, O  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
& j# |: g% }7 ^# ^  Printer()-&gt;EndDoc();
, U% l( J: q6 p! J9 r9 O} </P>