Imprimiendo con Me.printer y propiedades

[jorevale]

Hola.

Yo empleo un TrueDBGrid para mostrar las tablas. A la hora de imprimirlo lo que hago es que le quito lo colores antes (a las celdas). O sea, esto:

Private Sub Quitar_Colores()
'QUITAMOS LOS COLORES AL TDBG3:
With fProd.TDBGrid3
.HeadBackColor = &HFFFFFF
.Columns(0).BackColor = &HFFFFFF
.Columns(1).BackColor = &HFFFFFF
.Columns(2).BackColor = &HFFFFFF
.Columns(3).BackColor = &HFFFFFF
.Columns(4).BackColor = &HFFFFFF
.Columns(5).BackColor = &HFFFFFF
.Columns(6).BackColor = &HFFFFFF
.Columns(7).BackColor = &HFFFFFF
.Columns(8).BackColor = &HFFFFFF
.Columns(9).BackColor = &HFFFFFF
.Columns(10).BackColor = &HFFFFFF
.Columns(11).BackColor = &HFFFFFF
.Columns(12).BackColor = &HFFFFFF
.Columns(13).BackColor = &HFFFFFF
.Columns(14).BackColor = &HFFFFFF
.Columns(15).BackColor = &HFFFFFF
.Columns(16).BackColor = &HFFFFFF
.Columns(17).BackColor = &HFFFFFF
.Columns(18).BackColor = &HFFFFFF
.Columns(19).BackColor = &HFFFFFF
.Columns(20).BackColor = &HFFFFFF
End With
End Sub

Y hay un boton Print, donde:

Private Sub cPrint_Click()
On Error GoTo AddErr
'QUITAR COLORES:
Quitar_Colores
'IMPRIMIMOS:
Me.PrintForm
'PONER COLORES:
Poner_Colores
Exit Sub
AddErr:
MsgBox Err.Description
'PONER COLORES:
Poner_Colores
End Sub

Logicamente, tambien hay otra parte del codigo donde se vuelven a poner los colores.

Espero te haya servido.

Saludos