将用于在点阵打印机上打印的 VB6 代码迁移到 VB.Net

Question

我有 VB6 代码可以在点阵打印机上打印。它工作得很好，但现在我想升级到 VB.net。如何使相同的打印代码适应 VB.net?

Close #1
        Open "output.txt" For Output As #1
        prntitle
        Set salinvrs = Nothing
        Set salinvrs = abazcn.Execute("select * from creditnote where INVOICENO = '" & txtinvno.Text & "' ORDER BY mfr")
        Do While salinvrs.EOF <> True
            If salinvrs(12) = 0 Then
                xtxt = "Inc"
            Else
                xtxt = Format(salinvrs(12), ".00")
            End If
            If salinvrs(26) <> 0 Then
                xtxt = xtxt & "-" & "#"
            End If
        If salinvrs(3) > 0 And xrow < 6 Then
           varretuqty = salinvrs(3) & ""
           varval = Val(salinvrs(3)) * Val(salinvrs(4))
            Print #1, Mid(salinvrs(17), 1, 5);
            Print #1, Space(7 - Len(Mid(salinvrs(17), 1, 5))); Mid(Trim(salinvrs(2)), 1, 22);
            Print #1, Space(23 - Len(Mid(Trim(salinvrs(2)), 1, 22))); Mid(Trim(salinvrs(16)), 1, 5);
            Print #1, Space(7 - Len(Mid(Trim(salinvrs(16)), 1, 5))); Format(Val(salinvrs(19)), "00.00");
            Print #1, Space(8 - Len(Format(Val(salinvrs(19)), "00.00"))); Mid(Trim(salinvrs(11)), 1, 6);
            Print #1, Space(8 - Len(Mid(Trim(salinvrs(11)), 1, 6))); salinvrs(13);
            Print #1, Space(10 - Len(salinvrs(13))); Format(Val(salinvrs(4)), "00.00");
            Print #1, Space(7 - Len(salinvrs(3) & "+" & salinvrs(14))); salinvrs(3) & "+" & salinvrs(14);
            Print #1, Space(9 - Len(Format(varval, ".00"))); Format(varval, ".00");
            Print #1, Space(6 - Len(xtxt)); xtxt;
            Print #1, Space(10 - Len(Format(salinvrs(5), ".00"))); Format(salinvrs(5), ".00")
        End If
        If xrow = 6 Then
                varval = Val(salinvrs(3)) * Val(salinvrs(4))
                Print #1, Mid(salinvrs(17), 1, 5);
                Print #1, Space(7 - Len(Mid(salinvrs(17), 1, 5))); Mid(Trim(salinvrs(2)), 1, 22);
                Print #1, Space(23 - Len(Mid(Trim(salinvrs(2)), 1, 22))); Mid(Trim(salinvrs(16)), 1, 5);
                Print #1, Space(7 - Len(Mid(Trim(salinvrs(16)), 1, 5))); Format(Val(salinvrs(19)), "00.00");
                Print #1, Space(8 - Len(Format(Val(salinvrs(19)), "00.00"))); Mid(Trim(salinvrs(11)), 1, 6);
                Print #1, Space(8 - Len(Mid(Trim(salinvrs(11)), 1, 6))); salinvrs(13);
                Print #1, Space(10 - Len(salinvrs(13))); Format(Val(salinvrs(4)), "00.00");
                Print #1, Space(7 - Len(salinvrs(3) & "+" & salinvrs(14))); salinvrs(3) & "+" & salinvrs(14);
                Print #1, Space(9 - Len(Format(varval, ".00"))); Format(varval, ".00");
                Print #1, Space(6 - Len(xtxt)); xtxt;
                Print #1, Space(10 - Len(Format(salinvrs(5), ".00"))); Format(salinvrs(5), ".00"); Space(15); txtinvno.Text
        End If
        If xrow = 7 Then
                varval = Val(salinvrs(3)) * Val(salinvrs(4))
                Print #1, Mid(salinvrs(17), 1, 5);
                Print #1, Space(7 - Len(Mid(salinvrs(17), 1, 5))); Mid(Trim(salinvrs(2)), 1, 22);
                Print #1, Space(23 - Len(Mid(Trim(salinvrs(2)), 1, 22))); Mid(Trim(salinvrs(16)), 1, 5);
                Print #1, Space(7 - Len(Mid(Trim(salinvrs(16)), 1, 5))); Format(Val(salinvrs(19)), "00.00");
                Print #1, Space(8 - Len(Format(Val(salinvrs(19)), "00.00"))); Mid(Trim(salinvrs(11)), 1, 6);
                Print #1, Space(8 - Len(Mid(Trim(salinvrs(11)), 1, 6))); salinvrs(13);
                Print #1, Space(10 - Len(salinvrs(13))); Format(Val(salinvrs(4)), "00.00");
                Print #1, Space(7 - Len(salinvrs(3) & "+" & salinvrs(14))); salinvrs(3) & "+" & salinvrs(14);
                Print #1, Space(9 - Len(Format(varval, ".00"))); Format(varval, ".00");
                Print #1, Space(6 - Len(xtxt)); xtxt;
                Print #1, Space(10 - Len(Format(salinvrs(5), ".00"))); Format(salinvrs(5), ".00"); Space(15); Me.dtbilldate.Value
         End If
         If xrow = 8 Then
                varval = Val(salinvrs(3)) * Val(salinvrs(4))
                Print #1, Mid(salinvrs(17), 1, 5);
                Print #1, Space(7 - Len(Mid(salinvrs(17), 1, 5))); Mid(Trim(salinvrs(2)), 1, 22);
                Print #1, Space(23 - Len(Mid(Trim(salinvrs(2)), 1, 22))); Mid(Trim(salinvrs(16)), 1, 5);
                Print #1, Space(7 - Len(Mid(Trim(salinvrs(16)), 1, 5))); Format(Val(salinvrs(19)), "00.00");
                Print #1, Space(8 - Len(Format(Val(salinvrs(19)), "00.00"))); Mid(Trim(salinvrs(11)), 1, 6);
                Print #1, Space(8 - Len(Mid(Trim(salinvrs(11)), 1, 6))); salinvrs(13);
                Print #1, Space(10 - Len(salinvrs(13))); Format(Val(salinvrs(4)), "00.00");
                Print #1, Space(7 - Len(salinvrs(3) & "+" & salinvrs(14))); salinvrs(3) & "+" & salinvrs(14);
                Print #1, Space(9 - Len(Format(varval, ".00"))); Format(varval, ".00");
                Print #1, Space(6 - Len(xtxt)); xtxt;
                Print #1, Space(10 - Len(Format(salinvrs(5), ".00"))); Format(salinvrs(5), ".00"); Space(15); Format(txttotamo.Text, "#,##,###.00")
        End If
        If xrow = 9 Then
                varval = Val(salinvrs(3)) * Val(salinvrs(4))
                Print #1, Mid(salinvrs(17), 1, 5);
                Print #1, Space(7 - Len(Mid(salinvrs(17), 1, 5))); Mid(Trim(salinvrs(2)), 1, 22);
                Print #1, Space(23 - Len(Mid(Trim(salinvrs(2)), 1, 22))); Mid(Trim(salinvrs(16)), 1, 5);
                Print #1, Space(7 - Len(Mid(Trim(salinvrs(16)), 1, 5))); Format(Val(salinvrs(19)), "00.00");
                Print #1, Space(8 - Len(Format(Val(salinvrs(19)), "00.00"))); Mid(Trim(salinvrs(11)), 1, 6);
                Print #1, Space(8 - Len(Mid(Trim(salinvrs(11)), 1, 6))); salinvrs(13);
                Print #1, Space(10 - Len(salinvrs(13))); Format(Val(salinvrs(4)), "00.00");
                Print #1, Space(7 - Len(salinvrs(3) & "+" & salinvrs(14))); salinvrs(3) & "+" & salinvrs(14);
                Print #1, Space(9 - Len(Format(varval, ".00"))); Format(varval, ".00");
                Print #1, Space(6 - Len(xtxt)); xtxt;
                Print #1, Space(10 - Len(Format(salinvrs(5), ".00"))); Format(salinvrs(5), ".00"); Space(15); Format(txttotal.Text, "#,##,###.00")
            End If
        If xrow = 10 Then
                varval = Val(salinvrs(3)) * Val(salinvrs(4))
                Print #1, Mid(salinvrs(17), 1, 5);
                Print #1, Space(7 - Len(Mid(salinvrs(17), 1, 5))); Mid(Trim(salinvrs(2)), 1, 22);
                Print #1, Space(23 - Len(Mid(Trim(salinvrs(2)), 1, 22))); Mid(Trim(salinvrs(16)), 1, 5);
                Print #1, Space(7 - Len(Mid(Trim(salinvrs(16)), 1, 5))); Format(Val(salinvrs(19)), "00.00");
                Print #1, Space(8 - Len(Format(Val(salinvrs(19)), "00.00"))); Mid(Trim(salinvrs(11)), 1, 6);
                Print #1, Space(8 - Len(Mid(Trim(salinvrs(11)), 1, 6))); salinvrs(13);
                Print #1, Space(10 - Len(salinvrs(13))); Format(Val(salinvrs(4)), "00.00");
                Print #1, Space(7 - Len(salinvrs(3) & "+" & salinvrs(14))); salinvrs(3) & "+" & salinvrs(14);
                Print #1, Space(9 - Len(Format(varval, ".00"))); Format(varval, ".00");
                Print #1, Space(6 - Len(xtxt)); xtxt;
                Print #1, Space(10 - Len(Format(salinvrs(5), ".00"))); Format(salinvrs(5), ".00"); Space(15); Format(txtdisc.Text, "#,###.00")
            End If
        If xrow = 11 Then
                varval = Val(salinvrs(3)) * Val(salinvrs(4))
                Print #1, Mid(salinvrs(17), 1, 5);
                Print #1, Space(7 - Len(Mid(salinvrs(17), 1, 5))); Mid(Trim(salinvrs(2)), 1, 22);
                Print #1, Space(23 - Len(Mid(Trim(salinvrs(2)), 1, 22))); Mid(Trim(salinvrs(16)), 1, 5);
                Print #1, Space(7 - Len(Mid(Trim(salinvrs(16)), 1, 5))); Format(Val(salinvrs(19)), "00.00");
                Print #1, Space(8 - Len(Format(Val(salinvrs(19)), "00.00"))); Mid(Trim(salinvrs(11)), 1, 6);
                Print #1, Space(8 - Len(Mid(Trim(salinvrs(11)), 1, 6))); salinvrs(13);
                Print #1, Space(10 - Len(salinvrs(13))); Format(Val(salinvrs(4)), "00.00");
                Print #1, Space(7 - Len(salinvrs(3) & "+" & salinvrs(14))); salinvrs(3) & "+" & salinvrs(14);
                Print #1, Space(9 - Len(Format(varval, ".00"))); Format(varval, ".00");
                Print #1, Space(6 - Len(xtxt)); xtxt;
                Print #1, Space(10 - Len(Format(salinvrs(5), ".00"))); Format(salinvrs(5), ".00"); Space(15); txtdiscper.Text; " "; "%"
        End If
        If xrow = 12 Then
                varval = Val(salinvrs(3)) * Val(salinvrs(4))
                Print #1, Mid(salinvrs(17), 1, 5);
                Print #1, Space(7 - Len(Mid(salinvrs(17), 1, 5))); Mid(Trim(salinvrs(2)), 1, 22);
                Print #1, Space(23 - Len(Mid(Trim(salinvrs(2)), 1, 22))); Mid(Trim(salinvrs(16)), 1, 5);
                Print #1, Space(7 - Len(Mid(Trim(salinvrs(16)), 1, 5))); Format(Val(salinvrs(19)), "00.00");
                Print #1, Space(8 - Len(Format(Val(salinvrs(19)), "00.00"))); Mid(Trim(salinvrs(11)), 1, 6);
                Print #1, Space(8 - Len(Mid(Trim(salinvrs(11)), 1, 6))); salinvrs(13);
                Print #1, Space(10 - Len(salinvrs(13))); Format(Val(salinvrs(4)), "00.00");
                Print #1, Space(7 - Len(salinvrs(3) & "+" & salinvrs(14))); salinvrs(3) & "+" & salinvrs(14);
                Print #1, Space(9 - Len(Format(varval, ".00"))); Format(varval, ".00");
                Print #1, Space(6 - Len(xtxt)); xtxt;
                Print #1, Space(10 - Len(Format(salinvrs(5), ".00"))); Format(salinvrs(5), ".00"); Space(15); Me.txtmiscadd.Text & "/" & Me.txtmiscless.Text
        End If
        If xrow = 13 Then
                varval = Val(salinvrs(3)) * Val(salinvrs(4))
                Print #1, Mid(salinvrs(17), 1, 5);
                Print #1, Space(7 - Len(Mid(salinvrs(17), 1, 5))); Mid(Trim(salinvrs(2)), 1, 22);
                Print #1, Space(23 - Len(Mid(Trim(salinvrs(2)), 1, 22))); Mid(Trim(salinvrs(16)), 1, 5);
                Print #1, Space(7 - Len(Mid(Trim(salinvrs(16)), 1, 5))); Format(Val(salinvrs(19)), "00.00");
                Print #1, Space(8 - Len(Format(Val(salinvrs(19)), "00.00"))); Mid(Trim(salinvrs(11)), 1, 6);
                Print #1, Space(8 - Len(Mid(Trim(salinvrs(11)), 1, 6))); salinvrs(13);
                Print #1, Space(10 - Len(salinvrs(13))); Format(Val(salinvrs(4)), "00.00");
                Print #1, Space(7 - Len(salinvrs(3) & "+" & salinvrs(14))); salinvrs(3) & "+" & salinvrs(14);
                Print #1, Space(9 - Len(Format(varval, ".00"))); Format(varval, ".00");
                Print #1, Space(6 - Len(xtxt)); xtxt;
                Print #1, Space(10 - Len(Format(salinvrs(5), ".00"))); Format(salinvrs(5), ".00"); Space(15); Me.txtrst.Text
            End If
        If xrow = 14 Then
                varval = Val(salinvrs(3)) * Val(salinvrs(4))
                Print #1, Mid(salinvrs(17), 1, 5);
                Print #1, Space(7 - Len(Mid(salinvrs(17), 1, 5))); Mid(Trim(salinvrs(2)), 1, 22);
                Print #1, Space(23 - Len(Mid(Trim(salinvrs(2)), 1, 22))); Mid(Trim(salinvrs(16)), 1, 5);
                Print #1, Space(7 - Len(Mid(Trim(salinvrs(16)), 1, 5))); Format(Val(salinvrs(19)), "00.00");
                Print #1, Space(8 - Len(Format(Val(salinvrs(19)), "00.00"))); Mid(Trim(salinvrs(11)), 1, 6);
                Print #1, Space(8 - Len(Mid(Trim(salinvrs(11)), 1, 6))); salinvrs(13);
                Print #1, Space(10 - Len(salinvrs(13))); Format(Val(salinvrs(4)), "00.00");
                Print #1, Space(7 - Len(salinvrs(3) & "+" & salinvrs(14))); salinvrs(3) & "+" & salinvrs(14);
                Print #1, Space(9 - Len(Format(varval, ".00"))); Format(varval, ".00");
                Print #1, Space(6 - Len(xtxt)); xtxt;
                Print #1, Space(10 - Len(Format(salinvrs(5), ".00"))); Format(salinvrs(5), ".00"); Space(15); Me.txtcrnote.Text
            End If
        If xrow = 15 Then
                varval = Val(salinvrs(3)) * Val(salinvrs(4))
                Print #1, Mid(salinvrs(17), 1, 5);
                Print #1, Space(7 - Len(Mid(salinvrs(17), 1, 5))); Mid(Trim(salinvrs(2)), 1, 22);
                Print #1, Space(23 - Len(Mid(Trim(salinvrs(2)), 1, 22))); Mid(Trim(salinvrs(16)), 1, 5);
                Print #1, Space(7 - Len(Mid(Trim(salinvrs(16)), 1, 5))); Format(Val(salinvrs(19)), "00.00");
                Print #1, Space(8 - Len(Format(Val(salinvrs(19)), "00.00"))); Mid(Trim(salinvrs(11)), 1, 6);
                Print #1, Space(8 - Len(Mid(Trim(salinvrs(11)), 1, 6))); salinvrs(13);
                Print #1, Space(10 - Len(salinvrs(13))); Format(Val(salinvrs(4)), "00.00");
                Print #1, Space(7 - Len(salinvrs(3) & "+" & salinvrs(14))); salinvrs(3) & "+" & salinvrs(14);
                Print #1, Space(9 - Len(Format(varval, ".00"))); Format(varval, ".00");
                Print #1, Space(6 - Len(xtxt)); xtxt;
                Print #1, Space(10 - Len(Format(salinvrs(5), ".00"))); Format(salinvrs(5), ".00"); Space(15); Me.txtnetamo.Text
            End If
        yrow = yrow + 1
        salinvrs.MoveNext
        xrow = xrow + 1
        If xrow = 16 Then
            Print #1,
            Print #1,
            Print #1, Space(69); "CONTINUE.. .. .. .. PAGE :"; Space(3); varpage
            For i = 1 To 6
                Print #1,
            Next i
            prntitle
            xrow = 0
            i = 0
            varpage = varpage + 1
         End If
      Loop

         If xrow < 15 Then
            For i = 1 To (15 - xrow)
            Next i
                If i = 16 And varpage >= 1 Then
                    Print #1,
                    Print #1,
                    Print #1,
                    Print #1,
                    Print #1,
                    Print #1, Space(116); Me.txtinvno.Text
                    Print #1, Space(115); Me.dtbilldate.Value
                    Print #1, Space(116); Format(txttotal.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txttotamo.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txtdisc.Text, "#,###.00")
                    Print #1, Space(116); txtdiscper.Text & " " & "%"
                    Print #1, Space(116); Me.txtmiscadd.Text & "/" & Me.txtmiscless.Text
                    Print #1, Space(116); Me.txtrst.Text
                    Print #1, Space(116); Me.txtcrnote.Text
                    Print #1, Space(116); Me.txtnetamo.Text
                    Print #1, Space(116);
                    Print #1,
                    prnbottomval
                End If

                If i = 15 And varpage >= 1 Then
                    Print #1,
                    Print #1,
                    Print #1,
                    Print #1,
                    Print #1,
                    Print #1, Space(116); Me.txtinvno.Text
                    Print #1, Space(115); Me.dtbilldate.Value
                    Print #1, Space(116); Format(txttotal.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txttotamo.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txtdisc.Text, "#,###.00")
                    Print #1, Space(116); txtdiscper.Text & " " & "%"
                    Print #1, Space(116); Me.txtmiscadd.Text & "/" & Me.txtmiscless.Text
                    Print #1, Space(116); Me.txtrst.Text
                    Print #1, Space(116); Me.txtcrnote.Text
                    Print #1, Space(116); Me.txtnetamo.Text
                    Print #1, Space(116);
                    Print #1,
                    prnbottomval
                End If
                If i = 14 And varpage >= 1 Then
                    Print #1,
                    Print #1,
                    Print #1,
                    Print #1,
                    Print #1,
                    Print #1, Space(116); Me.txtinvno.Text
                    Print #1, Space(115); Me.dtbilldate.Value
                    Print #1, Space(116); Format(txttotal.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txttotamo.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txtdisc.Text, "#,###.00")
                    Print #1, Space(116); txtdiscper.Text & " " & "%"
                    Print #1, Space(116); Me.txtmiscadd.Text & "/" & Me.txtmiscless.Text
                    Print #1, Space(116); Me.txtrst.Text
                    Print #1, Space(116); Me.txtcrnote.Text
                    Print #1, Space(116); Me.txtnetamo.Text
                    Print #1, Space(116);
                    Print #1,
                    prnbottomval
                End If
                If i = 13 And varpage >= 1 Then
                    Print #1,
                    Print #1,
                    Print #1,
                    Print #1,
                    Print #1, Space(116); Me.txtinvno.Text
                    Print #1, Space(115); Me.dtbilldate.Value
                    Print #1, Space(116); Format(txttotal.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txttotamo.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txtdisc.Text, "#,###.00")
                    Print #1, Space(116); txtdiscper.Text & " " & "%"
                    Print #1, Space(116); Me.txtmiscadd.Text & "/" & Me.txtmiscless.Text
                    Print #1, Space(116); Me.txtrst.Text
                    Print #1, Space(116); Me.txtcrnote.Text
                    Print #1, Space(116); Me.txtnetamo.Text
                    Print #1,
                    prnbottomval
                End If
                If i = 12 And varpage >= 1 Then
                    Print #1,
                    Print #1,
                    Print #1,
                    Print #1, Space(116); Me.txtinvno.Text
                    Print #1, Space(115); Me.dtbilldate.Value
                    Print #1, Space(116); Format(txttotal.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txttotamo.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txtdisc.Text, "#,###.00")
                    Print #1, Space(116); txtdiscper.Text & " " & "%"
                    Print #1, Space(116); Me.txtmiscadd.Text & "/" & Me.txtmiscless.Text
                    Print #1, Space(116); Me.txtrst.Text
                    Print #1, Space(116); Me.txtcrnote.Text
                    Print #1, Space(116); Me.txtnetamo.Text
                    Print #1,
                    prnbottomval
                End If
                If i = 11 And varpage >= 1 Then
                    Print #1,
                    Print #1,
                    Print #1, Space(116); Me.txtinvno.Text
                    Print #1, Space(115); Me.dtbilldate.Value
                    Print #1, Space(116); Format(txttotal.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txttotamo.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txtdisc.Text, "#,###.00")
                    Print #1, Space(116); txtdiscper.Text & " " & "%"
                    Print #1, Space(116); Me.txtmiscadd.Text & "/" & Me.txtmiscless.Text
                    Print #1, Space(116); Me.txtrst.Text
                    Print #1, Space(116); Me.txtcrnote.Text
                    Print #1, Space(116); Me.txtnetamo.Text
                    Print #1,
                    prnbottomval
                End If
                If i = 10 And varpage >= 1 Then
                    Print #1,
                    Print #1, Space(116); Me.txtinvno.Text
                    Print #1, Space(115); Me.dtbilldate.Value
                    Print #1, Space(116); Format(txttotal.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txttotamo.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txtdisc.Text, "#,###.00")
                    Print #1, Space(116); txtdiscper.Text & " " & "%"
                    Print #1, Space(116); Me.txtmiscadd.Text & "/" & Me.txtmiscless.Text
                    Print #1, Space(116); Me.txtrst.Text
                    Print #1, Space(116); Me.txtcrnote.Text
                    Print #1, Space(116); Me.txtnetamo.Text
                    Print #1,
                    prnbottomval
                End If
                If i = 9 And varpage >= 1 Then
                    Print #1, Space(116); Me.txtinvno.Text
                    Print #1, Space(115); Me.dtbilldate.Value
                    Print #1, Space(116); Format(txttotal.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txttotamo.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txtdisc.Text, "#,###.00")
                    Print #1, Space(116); txtdiscper.Text & " " & "%"
                    Print #1, Space(116); Me.txtmiscadd.Text & "/" & Me.txtmiscless.Text
                    Print #1, Space(116); Me.txtrst.Text
                    Print #1, Space(116); Me.txtcrnote.Text
                    Print #1, Space(116); Me.txtnetamo.Text
                    Print #1,
                    prnbottomval
                End If
                If i = 8 And varpage >= 1 Then
                    Print #1, Space(115); Me.dtbilldate.Value
                    Print #1, Space(116); Format(txttotal.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txttotamo.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txtdisc.Text, "#,###.00")
                    Print #1, Space(116); txtdiscper.Text & " " & "%"
                    Print #1, Space(116); Me.txtmiscadd.Text & "/" & Me.txtmiscless.Text
                    Print #1, Space(116); Me.txtrst.Text
                    Print #1, Space(116); Me.txtcrnote.Text
                    Print #1, Space(116); Me.txtnetamo.Text
                    Print #1,
                    prnbottomval
                End If
                If i = 7 And varpage >= 1 Then
                    Print #1, Space(116); Format(txttotal.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txttotamo.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txtdisc.Text, "#,###.00")
                    Print #1, Space(116); txtdiscper.Text & " " & "%"
                    Print #1, Space(116); Me.txtmiscadd.Text & "/" & Me.txtmiscless.Text
                    Print #1, Space(116); Me.txtrst.Text
                    Print #1, Space(116); Me.txtcrnote.Text
                    Print #1, Space(116); Me.txtnetamo.Text
                    Print #1,
                    prnbottomval
                End If
                If i = 6 And varpage >= 1 Then
                    Print #1, Space(116); Format(txttotamo.Text, "#,##,###.00")
                    Print #1, Space(116); Format(txtdisc.Text, "#,###.00")
                    Print #1, Space(116); txtdiscper.Text & " " & "%"
                    Print #1, Space(116); Me.txtmiscadd.Text & "/" & Me.txtmiscless.Text
                    Print #1, Space(116); Me.txtrst.Text
                    Print #1, Space(116); Me.txtcrnote.Text
                    Print #1, Space(116); Me.txtnetamo.Text
                    Print #1,
                    prnbottomval
                End If
                If i = 5 And varpage >= 1 Then
                    Print #1, Space(116); Format(txtdisc.Text, "#,###.00")
                    Print #1, Space(116); txtdiscper.Text & " " & "%"
                    Print #1, Space(116); Me.txtmiscadd.Text & "/" & Me.txtmiscless.Text
                    Print #1, Space(116); Me.txtrst.Text
                    Print #1, Space(116); Me.txtcrnote.Text
                    Print #1, Space(116); Me.txtnetamo.Text
                    Print #1,
                    prnbottomval
                End If
                If i = 4 And varpage >= 1 Then
                    Print #1, Space(116); txtdiscper.Text & " " & "%"
                    Print #1, Space(116); Me.txtmiscadd.Text & "/" & Me.txtmiscless.Text
                    Print #1, Space(116); Me.txtrst.Text
                    Print #1, Space(116); Me.txtcrnote.Text
                    Print #1, Space(116); Me.txtnetamo.Text
                    Print #1,
                    prnbottomval
                End If
                If i = 3 And varpage >= 1 Then
                    Print #1, Space(116); Me.txtmiscadd.Text & "/" & Me.txtmiscless.Text
                    Print #1, Space(116); Me.txtrst.Text
                    Print #1, Space(116); Me.txtcrnote.Text
                    Print #1, Space(116); Me.txtnetamo.Text
                    Print #1,
                    prnbottomval
                End If
                If i = 2 And varpage >= 1 Then
                    Print #1, Space(116); Me.txtrst.Text
                    Print #1, Space(116); Me.txtcrnote.Text
                    Print #1, Space(116); Me.txtnetamo.Text
                    Print #1,
                    prnbottomval
                End If
                If i = 1 And varpage >= 1 Then
                    Print #1, Space(116); Me.txtcrnote.Text
                    Print #1, Space(116); Me.txtnetamo.Text
                    Print #1,
                    prnbottomval
                End If
        End If
    Close #1
    Open "output.bat" For Output As #1
    Print #1, "type output.txt>prn"
    Close #1
    Shell "output.bat", vbHide

    Private Sub prntitle()
Print #1,
Print #1,
Print #1, Space(50); "CREDIT NOTE"
        Print #1,
        Print #1,
        Print #1, Mid(Trim(txtcrdcustname.Text), 1, 35); Space(52 - Len(Mid(Trim(txtcrdcustname.Text), 1, 35))); Trim(txttngstno.Text); Space(26 - Len(Trim(txttngstno.Text))); cboinvno.Text
        Print #1, Trim(txtadd2.Text); Space(52 - Len(Mid(Trim(txtadd2.Text), 1, 40))); Trim(txtdlno1.Text); Space(26 - Len(Trim(txtdlno1.Text))); dtbilldate.Value
        Print #1, Mid(Trim(txtcustadd.Text), 1, 25); Space(36 - Len(Mid(Trim(txtcustadd.Text), 1, 25))); Space(18); Trim(Me.txtdlno2.Text); Space(26 - Len(Trim(txtdlno2.Text)))
        Print #1, Trim(Me.txtadd3.Text); Space(78 - Len(Mid(Trim(txtadd3.Text), 1, 15)))
        Print #1, Trim(Me.txtadd4.Text); Space(78 - Len(Mid(Trim(Me.txtadd4.Text), 1, 15)))
        Print #1,
        Print #1,

End Sub
Private Sub prnbottomval()
        Print #1, Space(13)
        Print #1, Space(5); Format(txttotal.Text, "#,##0.00"); Space(11 - Len(Format(txttotal.Text, "#,##0.00"))); Format(txttotamo.Text, "#,###.00"); Space(14 - Len(Format(txttotamo.Text, "#,##0.00"))); Format(txtdisc.Text, "#,##0.00"); _
                  Space(16 - Len(Format(txtdisc.Text, "#,##0.00"))); Format(txtmiscadd.Text, "0.00"); _
                  Space(6 - Len(Format(txtmiscadd.Text, "#,##0.00"))); Format(txtmiscless.Text, "0.00"); _
                  Space(13 - Len(Format(txtmiscless.Text, "#,##0.00"))); Format(txtrst.Text, "0.00"); _
                  Space(12 - Len(Format(txtrst.Text, "0.00"))); Format((0 - Val(txtcrnote.Text)), "0.00"); _
                  Space(13 - Len(Format((0 - Val(txtcrnote.Text)), "0.00"))); Format(txtnetamo.Text, "#,##0.00")
        Print #1,
        Print #1, "("; lblamount.Caption; Space(1); ")"
        Print #1,
        Print #1,
        Print #1,
End Sub

Answer 1

您将不得不修改一些代码，但其中很大一部分应该在 VB.net 中相当容易地工作。

首先要做的是将您打开的文件替换为 StreamWriter：

Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter("output.txt", True)

然后，代替所有这些 Print #1 语句，将 Print #1, 之后的所有内容放入 file.WriteLine( ) 中：

file.WriteLine(Mid(salinvrs(17), 1, 5))

完成文件写入后，使用：

file.Close()

就您的 Recordset 而言，为了暂时保持简单，您可以继续使用 ADO（您需要在 COM 选项卡中添加对 Microsoft ActiveX 数据对象的引用）。您应该考虑升级您的代码以使用 ADO.NET。有很多关于如何读取 DataSet 的例子，这里是一个：

Create a simple data application by using ADO.NET

Using the ADO and Recordset in VB.NET

将用于在点阵打印机上打印的 VB6 代码迁移到 VB.Net

Migrating VB6 code for printing on Dot Matrix Printer to VB.Net

vb6

vb6-migration