Datagrid won't print

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

al4629740Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

game-masterCommented:


GOOD afternoon!

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


game-master
0
al4629740Author Commented:
Its funny.  It prints out, but nothing is on the page!
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.