下面这段代码为什么在win98下面不正常?---在线等
我在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