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毫米宽。

解决方案 »

  1.   

    这段程序中,printstr 420,76,14,"中华人民共和国"    这段代码是我调出来的,只能打印中华两个字,宽度是297,正好是A4纸横着放的宽度。
      

  2.   

    这个值不是这样算的.你设置大点来试一下
    PrintStr 4000, 300, 14, "中华人民共和国"
      

  3.   

    UP,你试一下用word可不可以打到那边去呀
      

  4.   


    推荐一款套打开发模块,能够完成各种打印功能,是一个dll,调用简单方便,有VB的Demohttp://www.yxjr.com/download/yxprint套打开发模块.rar