Print Line By Line

[bastyoneal]

Can i print line by line in vb.net ...

i am using a dot matrix printer ... is it possible ...
actually i have a class in vb 6.0 that generate a line by line print but don't know how to convert it in .net ...

here is the code in vb 6.0

Option Explicit

Private Type DOCINFO
    pDocName As String
    pOutputFile As String
    pDatatype As String
End Type

Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal _
    hPrinter As Long) As Long
Private Declare Function EndDocPrinter Lib "winspool.drv" (ByVal _
    hPrinter As Long) As Long
Private Declare Function EndPagePrinter Lib "winspool.drv" (ByVal _
    hPrinter As Long) As Long
Private Declare Function OpenPrinter Lib "winspool.drv" Alias _
    "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, _
    ByVal pDefault As Long) As Long
Private Declare Function StartDocPrinter Lib "winspool.drv" Alias _
    "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _
    pDocInfo As DOCINFO) As Long
Private Declare Function StartPagePrinter Lib "winspool.drv" (ByVal _
    hPrinter As Long) As Long
Private Declare Function WritePrinter Lib "winspool.drv" (ByVal _
    hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, _
    pcWritten As Long) As Long

Dim lhPrinter As Long

Public Function NewPage(Optional PrinterName As String, _
                        Optional DocName As String) As Boolean
    On Error GoTo NewPage_Error

    If PrinterName = "" Then PrinterName = Printer.DeviceName
    If DocName = "" Then DocName = Application.Name

    Dim lReturn As Long
    Dim lDoc As Long
    Dim MyDocInfo As DOCINFO

    lReturn = OpenPrinter(Printer.DeviceName, lhPrinter, 0)
    If lReturn = 0 Then
        MsgBox "No Printer selected!", vbExclamation
        NewPage = False
        Exit Function
    End If
        
    MyDocInfo.pDocName = DocName
    MyDocInfo.pOutputFile = vbNullString
    MyDocInfo.pDatatype = vbNullString
    lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo)
    Call StartPagePrinter(lhPrinter)
        
    NewPage = True

    On Error GoTo 0
    Exit Function
NewPage_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure NewPage of Class Module clsPrintLineByLine"
    NewPage = False
    End Function

Public Sub PrintLine(ByVal srcToPrint As String)
    Dim lReturn As Long
    Dim lpcWritten As Long
    Dim sWrittenData As String
    sWrittenData = srcToPrint & vbCrLf
    lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, _
                           Len(sWrittenData), lpcWritten)
End Sub

Public Sub EndPage()
    Dim lReturn As Long

    lReturn = EndPagePrinter(lhPrinter)
    lReturn = EndDocPrinter(lhPrinter)
    lReturn = ClosePrinter(lhPrinter)
End Sub

[wild_bill]

Hope this helps
http://www.vbforums.com/showthread.php?t=405963