下面这段代码为什么在win98下面不正常？---在线等

Question

我在win2000中写了这么一段代码，在win2000中顺利通过，但在win98中只走纸，而不打印，这是怎么回事？请高手指点。Private Sub print_f()
    '为方便调整，设置左边距和上边距
    Dim page_left As Integer
    dim page_top as integer    page_left = 19
    page_top = 13
    
    '打印设置
    Printer.ScaleMode = 6
    Printer.FontSize = 10.5: Printer.FontName = "宋体"
    
    '打印第一行文字
    Printer.CurrentX = page_lefp + 13: Printer.CurrentY = page_top
    Printer.Print Me.dcb姓名.Text
    Printer.CurrentX = page_lefp + 40: Printer.CurrentY = page_top
    Printer.Print Me.cmb性别.Text
    Printer.CurrentX = page_lefp + 57: Printer.CurrentY = page_top
    Printer.Print Me.txt年龄.Text
'………………    '结束打印
    Printer.EndDoc
    Printer.KillDoc
End Sub

Answer 1

本人坚持信誉至上，一经解答，立即结贴。