看过以前关于这个问题的很多帖子,但是没有发现有能够解决我的问题的,所以想请教一下大家,希望大家能帮助我。
我用的打印机是平推式并且纸张靠右对齐的
系统为98
打印机默认纸张为A4
我写的语句如下
printer.papersize=256
printer.width=一个值
printer.height=一个值
调试后PRINTER的PAPERSIZE和WIDTH、HEIGHT的值确实有了变化,但是当我用PRINTER.CURRENTX确定位置时,它的零点却还是A4纸的零点。我不知道是我是我缺少什么重要的语句,请大家指点我呀,先谢了。

解决方案 »

  1.   

    '打印机设置---------------------------------
        Printer.Orientation = vbPRORPortrait '1 纵向  2 横向
        Printer.PrintQuality = vbPRPQHigh    '高质量打印
        Printer.PaperSize = vbPRPSA4         '设置为A4纸
        Printer.ScaleLeft = 0: Printer.ScaleTop = 0
        Printer.ScaleWidth = Printer.Width
        Printer.ScaleHeight = Printer.Height
      

  2.   

    单位什么的都设的没有问题,我试过,如果开始是B5的话,那么零位置就是B5纸的零位置,如果是A4的就是A4的零位置,不过我先试试“MSTOP(陈建华(东莞立晨企业资讯服务有限公司)) ”兄的做法吧