print or show my report (1 Viewer)

S

smiler44

Registered User.
Local time
Today, 06:48
Joined
Jul 15, 2008
Messages
641
print access database table

I would like to print a table from an access database. The code below
I got from somewhere a number of years ago and amended it as best I could but it's not good enough. can you help?

currently the columns being printed are all merged in to one long word

how do I modify this to print :
column headers on each A4 page?
print the gridlines?
print centrally between grind lines?
have a footer saying Page 1 of what ever the last page is?

I have even tried recording a macro in excel hoping to be able to work to how to do it in vb but could not work out how to convert
"with activesheet.pagesetup"



Code: 
Private Sub Cmdprint_Click()
    ' Use 1 inch margins.
    Const TOP_MARGIN = 1440
    Const LEFT_MARGIN = 1440
    
    Dim bottom_margin As Single
    Dim db As Database
    Dim qdef As QueryDef
    Dim rs As Recordset 'database is rs
    Dim dbname As String

    MousePointer = vbHourglass
    DoEvents
    ' Open the database.
    dbname = App.path
    If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
    dbname = dbname & "Dbase.mdb"
    Set db = OpenDatabase(dbname)
    ' Get the records.
    Set qdef = db.CreateQueryDef("", " select * from tablename where TEST like'" + ("*") + "'order by TEST") 'prints
    'only these coloumns
    Set rs = qdef.OpenRecordset(dbOpenSnapshot)
    ' Read the data and print it.
    bottom_margin = Printer.ScaleTop + Printer.ScaleHeight - 1440
    rs.MoveFirst
    
    Printer.CurrentY = TOP_MARGIN
    Do While Not rs.EOF
        ' Use rs!FieldName to get the data for
        ' the field named FieldName.
        Printer.CurrentX = LEFT_MARGIN
        Printer.Print _
           Format$(rs!make) & v; bTab & Format$(rs!colour) & v; bTab & Format$(rs!livery)
        ' See if we have filled the page.
        If Printer.CurrentY >= bottom_margin Then
            ' Start a new page.
            Printer.NewPage
            Printer.CurrentY = TOP_MARGIN
        End If
        rs.MoveNext
    Loop
    rs.Close
    db.Close
    ' Finish printing.
    Printer.EndDoc
    MousePointer = vbDefault
End Sub

thank you in advance

smiler44
 
S

smiler44

Registered User.
Local time
Today, 06:48
Joined
Jul 15, 2008
Messages
641
print table from access database

I am after some help with printing only certain columns of a table from an access database. I think I need to do this via code, visual basic code as I'm using visual basic but am not doing very well. i need to print on A4 paper and would like the column headers on each page and as a footer page x of ?

Can you give me advice (code) to print the table anlong with the column headers and grid lines?

Thank you
smiler44
 
Rabbie

Rabbie

Super Moderator
Local time
Today, 06:48
Joined
Jul 10, 2007
Messages
5,906
Re: print table from access database

As you only want to print certain columns just write a report to display the columns you want to show.
 
S

smiler44

Registered User.
Local time
Today, 06:48
Joined
Jul 15, 2008
Messages
641
Re: print table from access database

if I knew how to write the code I would have done so and not posted here for help. The reason for my post is that I dont know what the code should be?
smiler44
 
pbaldy

pbaldy

Wino Moderator
Staff member
Local time
Yesterday, 22:48
Joined
Aug 30, 2003
Messages
36,124
Re: print table from access database

There would likely be no code required. Try starting with the report wizard and customize as desired in design view.
 
S

smiler44

Registered User.
Local time
Today, 06:48
Joined
Jul 15, 2008
Messages
641
I have no experience of crystal reports.

Using the Report Desinger in visual basic v5 I think I have created a report. I think this is quite an old version of crystal reports
Using visual basic how do I either display the report on my screen or print it. I can see in the desinger that there is an opton to send it to screen or printer but can not work out what "code" i need to use to actually make the report appear

thnak you

smiler44
 
S

smiler44

Registered User.
Local time
Today, 06:48
Joined
Jul 15, 2008
Messages
641
search on google and some playing around and I have made a major leap forward.

place a crystal report control on the form, set the report file name property to c:\directoryname\reportname.rpt. place the code below to a command button. this sends it to the printer

Code: 
R1.DiscardSavedData = True
CR1.WindowState = crptMaximized
CR1.ReportFileName = "c:\directoryname\reportname.rpt"
CR1.PrintReport

smiler44
 
S

smiler44

Registered User.
Local time
Today, 06:48
Joined
Jul 15, 2008
Messages
641
Re: print table from access database

Thank you Paul, although your reply was for me a bit vague and I was not sure where to find the report wizard I did find it and create a report, played around with it... still some playing to do and then found via a google search how to send the report to the printer via a button on my form.

Thanks again Paul

smiler44:)
 
S

smiler44

Registered User.
Local time
Today, 06:48
Joined
Jul 15, 2008
Messages
641
Re: print access database table

although I'd like to know how to amend the posted code to do what I want i have with help from the crystal reports forum been put on the right path and then searching google found the code to print my report with gridlines

smiler44
 
You must log in or register to reply here.

Similar threads

A
Solved Loop recordset and print reports
Replies
5
Views
432
Pat Hartman
P
H
Solved Export Error Report as Text File.
Replies
14
Views
936
HillTJ
H
5
Solved Can't find what's trimming my string to 255 characters
Replies
7
Views
984
561414
5
Y
Automated Report Printing "This document was previously formatted for printer..."
Replies
10
Views
2,993
yaya
Y
V
Reuseable Where Condition
Replies
6
Views
1,103
plog
P

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Top Bottom