VB转VB.NET打印问题

[lxq19851204]

VB。NET中在CLASS中定义一个
Private outFile As FileStream
Private hPortP As IntPtr
    Public Sub OpenPort(ByVal pPrinterPort As String)
        hPort = CreateFile(pPrinterPort, GENERIC_WRITE, FILE_SHARE_WRITE, SA, OPEN_EXISTING, 0, 0)
        hPortP = New IntPtr(hPort) 
        outFile = New FileStream(hPortP, FileAccess.Write) 
    End Sub
    Public Sub PrintLine(ByVal pLine As String)
        Dim fileWriter As New StreamWriter(outFile)
        fileWriter.Write(pLine)
        fileWriter.Flush()
        fileWriter.Close()
    End Sub
    Public Sub ClosePort()
        FileClose(iPort)
        outFile.Close()
        retval = CloseHandle(hPort)
    End Sub

在程序中调用打印命令
OpenPort（"COM1"）
PrintLine("")
PrintLine("ABC")  '每次执行到这一步就出错。

[沐NeMo]

fileWriter.Close() 先不要关闭。写完所有在关闭。
--
或者直接执行：
OpenPort（"COM1"）
PrintLine("ABC")
--
我打印少用你这种打印法。

[vinjent]

Dim Fileinfo As New FileInfo(filename)
Dim fileWriter As StreamWriter=fileinfo.CreateText()
'若要覆寫使用AppendText()
fileWriter.Write(pLine)
'若是寫一行後跳行使用WriteLine(pLine)
fileWriter.Flush()
fileWriter.Close()

[冰镇宝贝321]

fileWriter.Close() 先不要关闭。

执行完在close

[jygongweibin]

就是这样 先不要关闭filewriter