Crsytal Seleccionar Impresora
Publicado por hector (34 intervenciones) el 13/04/2006 17:33:04
Saludos
Tengo la siguiente duda que ya le habia surgido a alguien anteriormente pero no lo pudo resolver
Mi duda des como seleccionar una impresora previamente y pasarle esa impresora a crystal report. Yo ya capturo la informacion que necesito con el control printdialog
y se lo paso a una variable
Private ImpresoraActual As New Printing.PrinterSettings()
Private Sub cmdConfiguararImpresora_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdConfiguararImpresora.Click
Try
prdImpresoras.PrinterSettings = ImpresoraActual
If prdImpresoras.ShowDialog = DialogResult.OK Then
ImpresoraActual = prdImpresoras.PrinterSettings
ImpresoraActual.DefaultPageSettings.Landscape = True
End If
Catch ex As Exception
MessageBox.Show(ex.Message, ex.Source, MessageBoxButtons.OK)
End Try
End Sub
Ahora bien se lo trato de pasar a crystal y no funciona se lo paso asi
rep.PrintOptions.PrinterName = ImpresoraActual.PrinterName
pero no funciona, ni el tamaño de papel lo cambia y tambien si le cambio el tamaño de papel por codigo tampoco lo hace
espero y me pudean decir como se maneja
saludos
Tengo la siguiente duda que ya le habia surgido a alguien anteriormente pero no lo pudo resolver
Mi duda des como seleccionar una impresora previamente y pasarle esa impresora a crystal report. Yo ya capturo la informacion que necesito con el control printdialog
y se lo paso a una variable
Private ImpresoraActual As New Printing.PrinterSettings()
Private Sub cmdConfiguararImpresora_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdConfiguararImpresora.Click
Try
prdImpresoras.PrinterSettings = ImpresoraActual
If prdImpresoras.ShowDialog = DialogResult.OK Then
ImpresoraActual = prdImpresoras.PrinterSettings
ImpresoraActual.DefaultPageSettings.Landscape = True
End If
Catch ex As Exception
MessageBox.Show(ex.Message, ex.Source, MessageBoxButtons.OK)
End Try
End Sub
Ahora bien se lo trato de pasar a crystal y no funciona se lo paso asi
rep.PrintOptions.PrinterName = ImpresoraActual.PrinterName
pero no funciona, ni el tamaño de papel lo cambia y tambien si le cambio el tamaño de papel por codigo tampoco lo hace
espero y me pudean decir como se maneja
saludos
Valora esta pregunta


0