简单打印编程问题

yuyk 2003-03-14 10:43:17

我做了一个打印的程序：

………………
With Printer
.PaperSize = 1
.Orientation = 2
.FontName = "宋体"
.FontSize = 12
.ScaleMode = vbMillimeters
End With
iLeft = 16: iTop = 12: iX = 15: iY = 35
iX = iLeft + 30: iY = 26:
Printer.CurrentX = iX + 194: Printer.CurrentY = iY - 3: Printer.Print "编号：" & rsProtel("货单编号")
Printer.CurrentX = iX - 10: Printer.CurrentY = iY - 3: Printer.Print rsCompany("简称")
……………………

为什么一个打印机一个样，如果在某一台打印对齐了，换一种型号的就不对不齐呀
怎么解决啊
初学，帮忙啊！

...全文

30 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

yuyk 2003-03-14

打赏
举报

qiqif(其其)：那怎么解决呢？如果不用坐标怎么办？

qiqif 2003-03-14

打赏
举报

这是正常的，每一种打印机都有自己的定位方式
这就是用坐标打的弊处

yuyk 2003-03-14

打赏
举报

我的对不齐是指初始坐标，互相之间是可以对齐的，就是所有字段同时移动相同的距离

饮水需思源 2003-03-14

打赏
举报

'***********************************
'1毫米=0.03937英寸
'1英寸=1440提(twips)
'A4纸=191毫米*210毫米
'***********************************
Printer.ScaleMode = vbTwips

打印单位改为缇试试

yuyk 2003-03-14