Imprimiendo con Me.printer y propiedades

[360]

Amigos:

Hace poco encontre un codigo para imprimir un formulario de visual basic pero lamentablemente lo borre, recuerdo vagamente que era ME.PRINTER y, este comando imprimia todo el formulario tal y cual esta en pantalla, mi pregunta es si es posible mezclarlo con algunos privilegios, por ejemplo que me mandara imprimir el formulario tal y cual esta pero dando instrucciones de que el fondo fuera blanco el texto en negro, que no me imprimiera los botones ni el datagrid... es esto posible???

p.s si por ahi tienen un tuto de como imprimir para principiantes se los agradeceria.


Gracias de antemano..

[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

[360]

muy bueno el tip que me das, pero haber dejame preguntarte, este procedimiento lo que hace es que imprime directamente del datagrid ?

Acabo de hacerle unas modificaciones al proyecto y he quitado todos los botones y he puesto mejor un menu con el editor, asi para que ya no me de el problema de la impresion de botones, lo que si me falta es mandar a imprimir directamente el formulario pero sin color, otra opcion y la cual no queria usar es darle por el lado de los datareport pero el problema es que solo me manda puro texto a imprimir y me gustaria ponerle algo mas grafico para que tubiera mas vista a la impresion.

[F_rank_cisco]

Yo haría algo más facil:
Los botones data grid y lo que quieras que no se imprima antes de Me.PrintForm, les pones .Visible = False
Ahora capturas y guardas la paleta de colores.
La cambias por una de blanco y negro.
Imprimes con Me.PrintForm
todos los .Visible=True
recuperas la paleta y ya está.
Otra forma:
Acceder a la impresora por defecto.
Ponerla para que imprima en blanco y negro.
Imprimir
Y volver a poner la impresora como estaba antes del cambio.
Si lo que quieres es sólo que todo lo imprima en blanco y negro claro.