gunpath Level: Trainee
 Registered: 17-09-2007 Posts: 1
|
Re: Bill Printing
Private Sub CashPrint()
Dim cPaid As String, cBbal As String
Dim nWgt As String, nQty As String, cTotwgt As String, cLess As String
Dim nLM As Integer, cVl As String, nBG As Integer, cHl As String
Dim nTotAmt As Double, nTotQty, nTRAmt As Double
Dim nTlen, nLoop, nInc As Integer, cString As String
nLM = 0
cVl = " "
cHl = "-"
Open "c:\files\testfile" For Output As #1 ' Open file for output.
For l = 1 To 4
Print #1, Chr(27) + "j" + "n"
Next
'############### Head Printing #################
Print #1,
Print #1, Space(nLM) + CPad(CboCaCr.Text, 40)
Print #1, Space(nLM) + Space(1) + "No." + RPad(Left(Trim(txtBNo.Text), 6), 6) + Space(15) + "Date:" + txtBDt.Text
If txtpartyname.Text <> "" Then
Print #1, Space(nLM) + Chr$(27) + Chr$(71) + "M/s " + Trim(txtpartyname.Text) + Chr(27) + Chr$(72)
Else
Print #1, Space(nLM) + Chr$(27) + Chr$(71) + "M/s " + Trim(txtName.Text) + Chr(27) + Chr$(72)
End If
If TxtAdd1.Text <> "" Then Print #1, Space(nLM) + TxtAdd1.Text
If TxtAdd2.Text <> "" Then Print #1, Space(nLM) + TxtAdd2.Text
If txtadd3.Text <> "" Then Print #1, Space(nLM) + txtadd3.Text
' Print #1, Space(nLM) + Space(1) + "Date:" + txtBDt.Text + Space(5) + " Time:" + txtTime.Text
'############ End Of Head Printing #################
'############ Body Printing #################
' If TxtAdd4.Text <> "" Then Print #1, Space(nLM) + TxtAdd4.Text
'******///////////////////Credit Bill /////////////////////// Starts here
' Print #1, Space(nLM) + cString
' If i = 1 Then
' nInc = nInc + 34
' Else
' nInc = nInc + 40
' End If
' Next
' End If
' End If
Print #1, Space(nLM) + String(40, "=")
Print #1, Space(nLM) + RPad("Rate", 7) + cVl + Chr(15) + CPad("Particulars ", 30) + Chr(18) + LPad("Qty", 3) + Space(1) + Space(2) + LPad("Amount", 8)
Print #1, Space(nLM) + String(40, "=")
For i = 1 To flxgrd.Rows - 1
If flxgrd.TextMatrix(i, 1) <> "" Then
If Val(flxgrd.TextMatrix(i, 3)) <> 0 Then
' If Len(Trim(flxgrd.TextMatrix(i, 1))) < 22 Then
Print #1, Space(nLM) + LPad(Format(flxgrd.TextMatrix(i, 4), "###0.00"), 7) + cVl + Chr(15) + RPad(Left(Trim(flxgrd.TextMatrix(i, 2)), 30), 30) + Chr(18) + cVl + LPad(flxgrd.TextMatrix(i, 3), 3) + Space(1) + Space(1) + LPad(Format(flxgrd.TextMatrix(i, 5), "####0.00"), 8)
' Else
' Print #1, Space(nLM) + RPad(flxgrd.TextMatrix(i, 0), 3) + cVl + Chr(15) + RPad(Left(flxgrd.TextMatrix(i, 1), 30), 30) + Chr(18) + cVl + LPad(flxgrd.TextMatrix(i, 2), 3) + Space(1) + Chr(15) + LPad(Format(flxgrd.TextMatrix(i, 3), "###0.00"), 7) + Chr(18) + Space(1) + LPad(Format(flxgrd.TextMatrix(i, 4), "####0.00"), 8)
' Print #1, Space(nLM) + Space(3) + cVl + Chr(15) + RPad(Mid(flxgrd.TextMatrix(i, 1), 22, Len(flxgrd.TextMatrix(i, 1))), 10) + Chr(18) + cVl
' End If
End If
' nTotAmt = nTotAmt + Val(flxgrd.TextMatrix(i, 5))
' nTotQty = nTotQty + Val(flxgrd.TextMatrix(i, 3))
End If
Next
Print #1, Space(nLM) + String(42, "-")
Print #1, Space(nLM) + Space(2) + "Total " + Space(8) + LPad(Format(lblTqty, "#####0"), 6) + Space(6) + LPad(Format(lblTamt, "#####0.00"), 9)
If Val(txtdR.Text) <> 0 Then Print #1, Space(nLM) + Space(2) + Chr(15) + " Less " + Chr(18) + Space(19) + LPad(Format(txtdR.Text, "####0.00"), 8)
If cboTax.ListIndex = 0 Then
If Val(txtTax.Text) <> 0 Then Print #1, Space(nLM) + Space(2) + Chr(15) + " Sales Tax @" + Format(nMTax, "#0.00") + Chr(18) + Space(19) + LPad(Format(txtTax.Text, "####0.00"), 8)
If Val(txtAsc.Text) <> 0 Then Print #1, Space(nLM) + Space(2) + Chr(15) + " Add Sur Charge" + Format(nMaTax, "#0.00") + Chr(18) + Space(19) + LPad(Format(txtAsc.Text, "####0.00"), 8)
ElseIf cboTax.ListIndex = 1 Then
If Val(txtTax.Text) <> 0 Then Print #1, Space(nLM) + Space(2) + Chr(15) + " V.A.T @" + Format(nMVat, "#0.00") + Str(cboTax.ItemData(ListIndex)) + Chr(18) + Space(19) + LPad(Format(txtTax.Text, "####0.00"), 8)
End If
If Val(txtTrns.Text) <> 0 Then Print #1, Space(nLM) + Space(2) + Chr(15) + "Transport Charges " + Chr(18) + Space(19) + LPad(Format(txtTrns.Text, "####0.00"), 8)
Print #1, Space(nLM) + Space(32) + String(8, "-")
Print #1, Space(nLM) + Space(32) + Chr(27) + Chr(71) + LPad(Format(txtTot.Text, "####0.00"), 8) + Chr(27) + Chr(72)
Print #1, Space(17) + " Received :" + LPad(Format(txtAmtR.Text, "####0.00"), 8)
Print #1, Space(nLM) + Space(32) + String(8, "-")
Print #1, Space(17) + " Balance :" + LPad(Format(txtAmtB.Text, "####0.00"), 8)
Print #1,
Print #1,
Print #1,
Print #1, Chr(15) + cUser + Chr(18)
Print #1,
Print #1,
'//////////////// FOR CASH BILL PRINTING procedure ends here
For K = 1 To 11
Print #1,
Next
Close #1
Do While True
RetVal = Shell("C:\FILES\DOSPRINT.BAT", 0)
If MsgBox("Print Again", vbOKCancel) = vbCancel Then
Exit Do
End If
Loop
End Sub
|