将用于在点阵打印机上打印的VB6代码迁移到VB.Net
我有VB6代码在点阵打印机上打印。它工作得很好，但现在我想升级到VB.net。如何使相同的打印代码适应VB.net将用于在点阵打印机上打印的VB6代码迁移到VB.Net,vb6,vb6-migration,Vb6,Vb6 Migration,我有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 = '" & t
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
您将不得不修改一些代码，但其中很大一部分应该在VB.net中相当容易地工作 第一件事是替换您正在向StreamWriter打开的文件：
Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter("output.txt", True)
file.Close()
欢迎来到堆栈溢出！请发布实际代码，而不是屏幕截图。这样我们就可以试着在我们的终端上运行代码并帮助您。嗨，您试过VB 2005快速版吗？它包含一个不完美的转换器，但这应该是一个良好的开端。第一个问题：您仍然需要打印到矩阵打印机吗？第二个问题：您见过VB6打印机对象吗？第三个问题：你已经用VB.NET打印系统打印了吗？第四个问题：您是否知道.NET中有一个类似VB6打印机的对象？关于Microsoft Visual Basic DLL…nabuchodonossor：谢谢您的回答，第一个问题的答案是肯定的，为什么bec我有自己的医疗商店，因为制药行业规则不允许在热敏打印机或其他激光打印机上打印。所以我必须使用点阵打印机。第二个问题：我是vb.net新手，所以我需要你的帮助。如果你愿意，请详细告诉我怎么走。感谢您file.WriteLineSpace10，患者姓名，MidTrimtxtsname.Text，1,35，Space52-LenMidTrimtxtsname.Text，1,35，Space10，S.InvoiceNo:，txtsalinvno.Text文件。WriteLineSpace10，医生姓名，MidTrimCBodors.Text，1,35，Space52-LenMidTrimCBodors.Text，1,35，Space10，Inv.Date:，Trimtxtinvdte.text我尝试了上述代码，但output.txt文件为空。请使用更新的代码更新您的问题。在注释中发布代码很难阅读。但是，看看您注释中的代码，我认为您无法使用逗号连接这样的字符串。您可以使用file。写多次，然后结束您的行：file。写空格10，然后是file。写患者姓名，然后是file。写MidTrimtxtsname.Text，1，35等。最后，要完成这行，您可以使用file。写VBCRLF谢谢兄弟，我如何更改标题、下划线和行的字体大小
file.Close()