Solved

Datagrid won't print

Posted on 2009-07-10
2
217 Views
Last Modified: 2012-05-07
Below I pasted my code that I use to print my datagrid.  However, nothing is printing out.  Paper comes out blank.  Can anyone figure out why that is happening?
Private Sub PrintGrid(ctlGrid As Control)

Dim i As Integer

Dim j As Integer

Dim PTab As Integer
 

Printer.Orientation = vbPRORLandscape
 
 

   With ctlGrid

'       PTab = 35 'Set the first tab value

       

'       For j = 0 To .Columns.Count - 1

 '          .col = j 'Set the current column

       

           'Send the field to the print line and add the tab.

           'Notice the semicolon at the end of the line.

'           Printer.Print Trim$(.Columns(j).Caption); Tab(PTab);

       

 '          PTab = PTab + 30 'Increment the tab value

  '     Next

   '    Printer.Print

       

       For i = 0 To .ApproxCount - 1

       

            PTab = 20 'Set the first tab value

           

           'This checks to see if a page break is needed

           If Printer.CurrentY + Printer.TextHeight(.text) > Printer.ScaleHeight - 600 Then

               Printer.NewPage

           End If

           

           For j = 0 To .Columns.Count - 1

               .Col = j 'Set the current column

           

               'Send the field to the print line and add the tab.

               'Notice the semicolon at the end of the line.

               Printer.Print Trim$(.text); Tab(PTab);

           

               PTab = PTab + 20 'Increment the tab value

               

               

           Next

           

            

           'After each column has printed to the print line

           'a Printer.Print statement without a semicolon will

           'will send the line to the printer and start a new

           'one.

           

           

           Printer.Print

           

           On Error Resume Next

           .Row = .Row + 1 'Set the active row

           On Error GoTo 0

           

       Next i

   End With

   Printer.EndDoc

End Sub

Open in new window

0
Comment
Question by:al4629740
2 Comments
 
LVL 13

Assisted Solution

by:game-master
game-master earned 500 total points
Comment Utility


GOOD afternoon!

i have tried ur code and it works for me...
make sure u have set ur default printer...


game-master
0
 

Accepted Solution

by:
al4629740 earned 0 total points
Comment Utility
Its funny.  It prints out, but nothing is on the page!
0

Featured Post

6 Surprising Benefits of Threat Intelligence

All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.

Join & Write a Comment

When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now