大侠们：这个打印怎么回事呢？

Question

Option ExplicitPrivate Sub Command1_Click()
    On Error GoTo ErrorHandle:
        Dim p As Printer
    
    For Each p In Printers
        If p.Orientation = vbPRORPortrait Then
            '设定为系统缺省打印机。
            Set Printer = p
            
            ' 终止查找打印机。
            Exit For
        End If
    Next    Printer.Line (567, 567)-(567 * 20, 567)
    
    Printer.EndDoc
    Exit Sub
    
    
ErrorHandle:
End Sub以上代码没有什么问题吧！默认的ScaleMode是vbTwips(缇)， 1厘米=567缇，如果我打印到文件就能显示出来，打印到打印机就不行，为什么？其实我觉得其他属性根本不用设置，都有默认的属性。

Answer 1

真的是打印机又问题？我的激光黑白打印机