Public Sub InitPrint()
Printer.Orientation = 1
Printer.ScaleMode = 6
Printer.ScaleLeft = 0
Printer.ScaleTop = 0
Printer.ScaleHeight = 420
Printer.ScaleWidth = 297
End SubSub PrintStr(ByVal X As Long, ByVal Y As Long, ByVal Fntsize As Integer, ByVal Str As String)
Printer.CurrentX = X
Printer.CurrentY = Y
Printer.FontSize = Fntsize
Printer.Print Str
End SubPrivate Sub Command1_Click()
InitPrint
PrintStr 185, 166, 14, "420122200412310015"
PrintStr 165, 300, 14, "中华人民共和国"
PrintStr 165, 330, 14, "2004年12朋31日"
PrintStr 420, 76, 14, "中国华民共和国"
PrintStr 480, 100, 14, "120.50"
Printer.EndDoc
End
End Sub以上是我的程序代码,打印机是映美FP-5800KII型,为平推打印机,打印机设置中设为A3纸,使用A3纸,横着放纸,当我点击Command1以后,左边可以正常打印,但右边只能打印到297毫米处,为什么啊?A3的纸横着放的时候是420毫米宽。
Printer.Orientation = 1
Printer.ScaleMode = 6
Printer.ScaleLeft = 0
Printer.ScaleTop = 0
Printer.ScaleHeight = 420
Printer.ScaleWidth = 297
End SubSub PrintStr(ByVal X As Long, ByVal Y As Long, ByVal Fntsize As Integer, ByVal Str As String)
Printer.CurrentX = X
Printer.CurrentY = Y
Printer.FontSize = Fntsize
Printer.Print Str
End SubPrivate Sub Command1_Click()
InitPrint
PrintStr 185, 166, 14, "420122200412310015"
PrintStr 165, 300, 14, "中华人民共和国"
PrintStr 165, 330, 14, "2004年12朋31日"
PrintStr 420, 76, 14, "中国华民共和国"
PrintStr 480, 100, 14, "120.50"
Printer.EndDoc
End
End Sub以上是我的程序代码,打印机是映美FP-5800KII型,为平推打印机,打印机设置中设为A3纸,使用A3纸,横着放纸,当我点击Command1以后,左边可以正常打印,但右边只能打印到297毫米处,为什么啊?A3的纸横着放的时候是420毫米宽。
解决方案 »
- vb中如何用printer控件在打印机上输出任意形状填充的图形
- 关于A* 寻路算法在 1000*1000 大地图复杂地形寻路的优化问题
- 利用存储过程返回记录集的问题。
- 怎样用msinet.ocx实现post方法https网页
- dll文件两个机器注册问题
- 如何用通用对话框打开文件夹(请各位大虾多多指点)
- 帮忙看看这句SQL语句,老是说类型不匹配!
- 寻找有关Adodc控件和引用ado的技术性文章,为了我毕业论文,。。在先等待,Thank You!
- 一个菜鸟的疑惑:为何我的.asp程序总报"对象不支持此属性或方法: 'chkLogin' "
- 200分问题:输入汉字如何反查拼音?
- 在vb加进度条和状态栏要用什么控件
- winsock问题?!up有分,谢谢了!
PrintStr 4000, 300, 14, "中华人民共和国"
推荐一款套打开发模块,能够完成各种打印功能,是一个dll,调用简单方便,有VB的Demohttp://www.yxjr.com/download/yxprint套打开发模块.rar