Visual Basic - imprimir informe

Life is soft - evento anual de software empresarial
 
Vista:

imprimir informe

Publicado por vincent (5 intervenciones) el 10/04/2008 18:31:53
buenas, he creado un codigo para un formulario en el que al pulsar el boton imprimir m imprime directamente en la impresora que tengo como predeterminada...
Lo que quisiera es que me dejara elegir con cual de mis impresoras quiero imprimir...
adjunto codigo:

-----------
Private Sub Comando30_Click()
On Error GoTo Err_Comando30_Click

Dim stDocName1, stDocName2, stDocName3, stDocName4 As String
Dim R As Integer

stDocName1 = "Informe1"
stDocName2 = "Informe2"
stDocName3 = "Informe3"
stDocName4 = "Informe4"

R = Texto27.Value

While R >= 4
DoCmd.OpenReport stDocName4, acNormal
R = R - 4
Wend

If R = 1 Then DoCmd.OpenReport stDocName1, acNormal
If R = 2 Then DoCmd.OpenReport stDocName2, acNormal
If R = 3 Then DoCmd.OpenReport stDocName3, acNormal

Exit_Comando30_Click:
Exit Sub
------------------------

Supongo que seria cambiando el codigo de las ultimas filas, pero no encuentro nada...
Tampoco quiero que me muestre una previsualizacion del informe a imprimir... solo que me diga con cual de mis impresoras quiero imprimir..

Alguna idea??

Gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder