试试
Private Sub Command1_Click()
Picture1.ScaleMode = 1
Picture1.CurrentX = -100
Picture1.Print "-100"Picture1.CurrentX = 200
Picture1.Print "200"Picture1.CurrentX = 500
Picture1.Print "500"
End Sub

解决方案 »

  1.   

    可预览的 Printer 对像——袁飞打印预览控件http://ygyuan.go.163.com/
    http://ygyuan.3322.net/
      

  2.   

    因为我是要打印条码,想靠着纸的最左边打,光设置Printer.CurrentX好象难以实现功能,我设Printer.CurrentX=-50,左边还是有空白的,只是该打出来的字靠前面的几个字不见了。
    请问到底要怎么实现?是不是要设置Printer.Width啊
      

  3.   

    应该不用设,你ScaleMode属性设的是什么呀!!
      

  4.   

    to lyc98370118(小笨) :
    没有设啊,要设置成什么呢?
      

  5.   

    这个属性是设置点阵的。你要是没设的话,他就采取默认的。50和20有区别,但太小了,你更本看不出来。把这个属性设为2,你再看看。
    ================================================================
    [email protected]
      

  6.   

    tp lyc98370118(小笨) 
    我试了,好象没什么反应啊
      

  7.   

    Printer.ScaleMode = vbPoints
    ================================================================
    [email protected]
      

  8.   

    Printer.ScaleMode = vbPoints
    ================================================================
    [email protected]
      

  9.   

    to lyc98370118(小笨) 
    设置Printer.ScaleMode = vbPoints后,左边距不会变啊,只是行间距达到半页纸之多,什么原因呢?
      

  10.   

    Printer.ScaleMode 是设置度量单位吧,是不是不是设置这个属性啊?
      

  11.   

    设了这个属性是设点阵的!!你到控制面板中看看打印机的打印属性
    ================================================================
    [email protected]
      

  12.   

    Printer.CurrentX=0 
    Printer.CurrentX=3 你都试试。
    要还不行就换个打印机看看。
    ================================================================
    [email protected]
      

  13.   

    to lyc98370118(小笨) :
    从打印属性里找不到与这个有关的东西啊
      

  14.   

    qq28920207 
    ================================================================
    [email protected]
      

  15.   

    to lyc98370118(小笨) 
    我们上班时间不能用qq,为工作也不能!:)
      

  16.   

    Printer.CurrentX=1
    再换个打印机!!
    printer.PaperSize 你用的是A4么
    ================================================================
    [email protected]
      

  17.   

    to lyc98370118(小笨) 
    我已经把Printer.CurrentX=0了,但打印出来左边第一个字母里纸的最左边还有7、8厘米。
    用的是A4的,我想应该不是打印机的问题,我现在手边就一台打印机
      

  18.   

    你设一下printer.width属性把!
    ================================================================
    [email protected]
      

  19.   

    printer.width我设过,4000,3500,3000都设过,没什么明显反应啊