下面的代码为何只进纸而确无法打印？？？

Question

Private Sub Command1_Click()
    Printer.ScaleMode = vbMillimeters '厘米
    
    Printer.Width = 190
    Printer.Height = 100
    
    Printer.CurrentX = 40
    Printer.CurrentY = 10
    
    Printer.Print "测试"
    Printer.EndDoc
End Sub'事实上执行了上述代码后，打印机只走纸确不能打印出“测试”两字。。

Answer 1

更正声明：
Printer.ScaleMode = vbMillimeters '厘米　－－－－打错了实际上是“毫米”

Answer 2

可是在我的打印机上无法打印出来。。但是如何把这句改为Printer.CurrentX = 20，是可以打印出来“测试”两字，但是好像就是“试”这个字右边好像没有打全。我用的是OKI5530票据打印出，在打印机纸张上设置的是USF格式。在我上述得代码中其实我是想设置我的纸张宽＝190毫米，高＝100毫米。。

Answer 3

Private Sub Command1_Click()
    Printer.ScaleMode = vbMillimeters '厘米
    
   ' Printer.Width = 190    去掉这两行就没有问题了。
    'Printer.Height = 100
    
    Printer.CurrentX = 40
    Printer.CurrentY = 10
    
    Printer.Print "测试"
    Printer.EndDoc
End Sub

Answer 4

With Printer
    .ScaleMode = vbMillimeters
    .Width = 19 * 567  'CM->TWIPS,ScaleMode属性对Width和Height属性无影响，它影响ScaleWidth/ScaleHeight属性
    .Height = 10 * 567 'CM->TWIPS
    .CurrentX = 40
    .CurrentY = 10
    .Print "测试"
    .EndDoc
End With