# Printer.Print 在 vb 环境 下与编译成 exe 下列印资料格式无法对齐

Posted by kscc on May 21, 1999 at 16:13:22:

Private Sub Command1_Click()
Dim readdata As String
Open App.Path & "\aaa.txt" For Input As #1
Printer.PrintQuality = 300
Do While Not EOF(1)
Line Input #1, readdata
If Mid(readdata, 1, 1) = Chr(12) Then
Printer.NewPage
Else
Printer.Print readdata
End If
Loop
Close (1)
Printer.EndDoc
End Sub

上面是程式码,我在vb6.0 环境下列印aaa.txt (一般文字档含中英数字)格式为
对齐,但是编译成 exe 后,在windows 98 列印格式却无法对齐

Follow Ups:

- Re: Printer.Print 在 vb 环境 下与编译成 exe 下列印资料格式无法对齐 小v 15:37:25 5/22/99 (0)