Printing using .printform in vb6 produces black in the datagrid

[jcastill]

I am using .printform to print the form but am getting black in place of the datagrid.

I am printing to an HP LaserJet printer.
I have tried several different properties of the form in particular those that involve color without any success.

The code snippet that I last tried is as follows:

Dim Old_Color As String
Old_Color = grdArray.BackColorBkg
frmHoldRelease.BackColor = vbWhite
grdArray.BackColorBkg = vbWhite
frmHoldRelease.PrintForm
grdArray.BackColorBkg = Old_Color

Any Help on resolving this would be greatly appreciated.
TIA
John

 

[aco2x]

I had the same problem with flex grids.

To get around this put a picture box on the form behind your grid and add some code like this:

    'Place contents of flex grids in picture boxes
    pbSample.AutoRedraw = True
    pbSample.Picture = fgSampleRS.Picture
    
    'Hide Flex grids
    fgSampleRS.Visible = False
    
    'Print Form
    Me.PrintForm
    
    'Re-Display Flex grids
    fgSampleRS.Visible = True
    
    'De-Activate picture boxes
    pbSample.AutoRedraw = False

 

[jcastill]

Thanks for the tip! After getting a picture box setup for all the grids and fooling with positions I finally got it to work.

Thanks Again!
Much Appreciated

John