Computer Programming Concepts and Visual Basic David I. Schneider

234 Computer Programming Concepts and Visual Basic
‘Print the details of the individual transactions.
Do Until EOF(1)
If lineNo >= 57 Then
‘57 or more lines have been printed; start a new page
Printer.NewPage
lineNo = 1
End If
If lineNo = 1 Then
‘Print the report header
Printer.Print
Printer.Print “Name: ”; nameOnChk; Tab(65); FormatDateTime(Now,
vbLongDate)
Printer.Print
Printer.Print , “Starting balance: ”; FormatCurrency(balance)
Printer.Print
Printer.Print “Date”, “Transaction”; Tab(50); “Amount”;
Printer.Print Tab(65); “Balance”
Printer.Print “____”, “___________”; Tab(50); “______”;
Printer.Print Tab(65); “_______”
Printer.Print
Printer.Print
lineNo = 10
End If
Input #1, transType, toFrom, balance, ck, dp, amount, memo, theDate
If transType = “Check” Then
Printer.Print theDate, “Check #: ”; ck; Tab(50); amount;
Printer.Print Tab(65); FormatCurrency(balance)
Printer.Print , “Paid to: ”; toFrom
Else ‘Transaction was a deposit
Printer.Print theDate, “Deposit #: ”; dp; Tab(50); amount;
Printer.Print Tab(65); FormatCurrency(balance)
Printer.Print , “Source: ”; toFrom
End If
lineNo = lineNo + 2
‘If there was a memo, then print it.
If memo “” Then
Printer.Print , “Memo: ”; memo
lineNo = lineNo + 1
End If
Printer.Print
lineNo = lineNo + 1
Loop
Close #1 ‘Close the file
‘Print the ending balance
Printer.Print
Printer.Print , “Ending Balance: ”; FormatCurrency(balance)
Printer.EndDoc ‘Send the output to the Printer
frmCheckbook.Caption = temp ‘Restore the form caption
txtToFrom.SetFocus ‘Set focus for the next entry
End Sub
Private Sub cmdQuit_Click()
‘Exit the program
End
End Sub