• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 251
  • Last Modified:

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

0
al4629740
Asked:
al4629740
2 Solutions
 
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

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now