[RESOLVED] Writing to a "Sequential Access File" & Printing a Report

[Stormy_VB6]

Can someone please take a look at my code and get me back on track here is what I'm trying to accomplish.

I want an application that will allow the user to enter the inventory number, quantity, and price of each item in inventory. The application should allow the user to record this information in a sequential access file named la3.dat

In addition, the application should allow the user to print a report showing the inventory number, quantity, and price of each inventory item, as well as the average price.

Inventory Number Quantity Item Price
ABC12 100 10.50
XYZ35 50 15.99
KLK25 150 20.00

Here is what I have thus far for the printing the report:

Private Sub cmdPrint_Click()
    Dim strIN As String, intQty As Integer, intIP As Integer, intAvg As Integer
    Dim strFont As String, sngSize As Single
    Dim strPS1 As String * 5, strPS2 As String * 3, strPS3 As String * 5
        
    
    strFont = Printer.Font          'save current printer settings
    sngSize = Printer.FontSize
    Printer.Font = "courier new"    'change printer settings
    Printer.FontSize = 10           'print title and headings
    Printer.Print Tab(30); "Boggs Inc.Inventory Report"
    Printer.Print
    Printer.Print Tab(5); "Inventory Number"; Tab(25); "Quatity"; Tab(37); "Item Price"
End Sub

Please Help

[paralinx]

Does this not work?


You need to have this

Private Sub cmdPrint_Click()
    Dim strIN As String, intQty As Integer, intIP As Integer, intAvg As Integer
    Dim strFont As String, sngSize As Single
    Dim strPS1 As String * 5, strPS2 As String * 3, strPS3 As String * 5
        
    
    strFont = Printer.Font          'save current printer settings
    sngSize = Printer.FontSize
    Printer.Font = "courier new"    'change printer settings
    Printer.FontSize = 10           'print title and headings
    Printer.Print Tab(30); "Boggs Inc.Inventory Report"
    Printer.Print
    Printer.Print Tab(5); "Inventory Number"; Tab(25); "Quatity"; Tab(37); "Item Price"
    Printer.Enddoc
End Sub

[jcis]

I want an application that will allow the user to enter the inventory number, quantity, and price of each item in inventory.

You could use a list or a Msflexgrid to show the Items to the user.
Then he can add, modify or delete items.
For that you could simply use 4 textboxes, and 3 buttons(add, modify, delete)

The application should allow the user to record this information in a sequential access file named la3.dat

Having your list or flexgrid with the items, the user could select "SAVE" and the entire thing will be saved to file.

In addition, the application should allow the user to print a report showing the inventory number, quantity, and price of each inventory item, as well as the average price.

A Print button then. (or Menu, if you like) that would print the whole list,
you should add at the end:

Printer.Endoc

[Stormy_VB6]

The report prints, but contains does not contain the Inventory information

[paralinx]

I just added the Printer.EndDoc like jcis mentioned

[Stormy_VB6]

Printing the Report is now working, however it is not displaying the information that I have "Saved" / Collected. Please take a look at the attached.

[dee-u]

Printing the Report is now working, however it is not displaying the information that I have "Saved" / Collected. Please take a look at the attached.

Attached where?

[Stormy_VB6]

Sorry about that....here is the attachment, I'm not sure if I'm headed down the right path.

[Stormy_VB6]

Someone...please take a look