- 在线时间
- 0 小时
- 最后登录
- 2007-9-23
- 注册时间
- 2004-9-10
- 听众数
- 3
- 收听数
- 0
- 能力
- 0 分
- 体力
- 9975 点
- 威望
- 7 点
- 阅读权限
- 150
- 积分
- 4048
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 1893
- 主题
- 823
- 精华
- 2
- 分享
- 0
- 好友
- 0

我的地盘我做主
该用户从未签到
 |
< >因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用,
& b# H- G: w/ u& i! \3 a所以一生气就索性查了查资料自己写了,怕网友们在用编程时也遇见此类情况, 9 j1 A0 P6 k) z$ N6 A
就马上传了上来。 </P>/ j' b( q4 |/ E; S3 k- K
< >void __fastcall TForm1::BitBtn1Click(TObject *Sender)
T( e. y N6 g( E% _" A: M# Y" U3 V{
/ U4 r1 L5 \8 b# ^% ]9 i+ jchar *ADevice, *ADriver, *APort;
4 ]9 {1 \ W8 T% E7 LTHandle DeviceMode;
0 F: V& c( Y& uPDeviceMode DevMode;
* T5 S( k/ Q: Y* P* v* Pint length,width; 5 c0 r$ ~; v- @
length=1400;
" C; _7 s l" j! O$ x width=2410;//设定自定义纸张的尺寸单位为0.1毫米 # O8 e" J4 Z6 z2 R2 T
ADevice =new char[100];
! c- ?& D5 ~/ C ADriver =new char[100]; $ S1 c6 L* {+ X4 z6 @
APort =new char[100]; : A- Y% E+ s( |7 o: g+ ?0 N" _
//获取打印机 y* q% D2 C* w0 a: u4 ?
Printer()->GetPrinter(ADevice, ADriver, APort,DeviceMode); 0 d2 z) I5 A: O& n( [, c
//获取PDevMode结构 + t8 R* O- ~$ d5 N X; H
DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode); , ]# m' L& T6 i0 l6 G( R9 a
//设定可以修改的值 ) i$ N) K8 A$ t8 M/ ^) `; F
DevMode->dmFields = DevMode->dmFields|DM_PAPERSIZE;
) z8 ^* R' p# E! I- q# V( ]* L d; P# d DevMode->dmFields = DevMode->dmFields|DM_PAPERLENGTH; ; ?. m4 N5 B6 a" y; |! ^- _: Z
DevMode->dmFields = DevMode->dmFields|DM_PAPERWIDTH; 5 @' X! c% ^) i& Z1 r& p
//设定要修改的值 4 s! h0 H* G: K( W
DevMode->dmPaperSize=DMPAPER_USER;//设为自定义纸张 , {. J6 e; y" v. c1 ] q
DevMode->dmPaperLength=length;
1 k- L$ y( ^: K* m DevMode->dmPaperWidth=width; </P> J. R0 V5 N" y- s4 }" u: z; q- w
< > //测试打印 & s$ o% F6 q0 a1 C/ H' f
Printer()->BeginDoc(); " p- N2 n8 P9 i9 E. l* ~: g& _
TextOut(Printer()->Handle, 0, 0, "-----------------",17);
y5 v6 I1 e; }: z5 f& p% I3 V Printer()->NewPage(); ( [- q( c [ E3 `0 N
TextOut(Printer()->Handle, 0, 0, "++++++++++++++++++",18); 2 l d& r6 T7 ?/ @2 M6 P
Printer()->NewPage();
& v {, h5 Q2 j3 p b6 y# E Printer()->EndDoc(); * V" A( K, B& z2 d; d7 x
} </P> |
zan
|