none
Printform vista previa, elegir impresora e imprimir Visual Basic 2010 RRS feed

  • Pregunta

  • Saludos,

    Tengo la siguiente duda, estoy usando el control PrintForm, pero hasta el momento he podido mostrar la vista previa del formulario, ajustar los margenes, entre otros. Sin embargo necesito mostrar el cuadro para elegir la impresora y por último imprimir.

    Gracias, y cualquier ayuda al respecto es bienvenida.

    viernes, 13 de julio de 2012 1:37

Respuestas

  • hola

    http://social.msdn.microsoft.com/Forums/en-US/vbpowerpacks/thread/72f63e72-0841-4f7d-b732-7755e751d78b/

    usa

    Private Sub buttonPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    
            Dim printDialog1 As PrintDialog = New PrintDialog
    
            printDialog1.Document = printDocument1
    
            Dim result As DialogResult = printDialog1.ShowDialog
    
            If (result = DialogResult.OK) Then
    
                printDocument1.Print()
    
            End If
    
        End Sub

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    • Marcado como respuesta caudiz lunes, 16 de julio de 2012 17:22
    viernes, 13 de julio de 2012 4:17
  • Saludos,

    Gracias por la ayuda brindada, he utilizado el siguiente codigo para resolver mi problema:

            Dim result As DialogResult = DIALOGO_IMPRESION.ShowDialog
            If (result = DialogResult.OK) Then


                CONTROL_IMPRIMIR.PrinterSettings = DIALOGO_IMPRESION.PrinterSettings
                CONTROL_IMPRIMIR.PrinterSettings.DefaultPageSettings.Margins.Top = 10
                CONTROL_IMPRIMIR.PrinterSettings.DefaultPageSettings.Margins.Bottom = 10
                CONTROL_IMPRIMIR.PrinterSettings.DefaultPageSettings.Margins.Left = 10
                CONTROL_IMPRIMIR.PrinterSettings.DefaultPageSettings.Margins.Right = 10
                CONTROL_IMPRIMIR.PrinterSettings.DefaultPageSettings.Landscape = True

                CONTROL_IMPRIMIR.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.CompatibleModeClientAreaOnly)
            End If

    Con este codigo se abre primero la configuracion de impresión para elegir impresora y demás, luego se abre la vista previa de lo que voy a imprimir.

    Gracias, buen dia a todos.

    • Marcado como respuesta caudiz lunes, 16 de julio de 2012 17:22
    lunes, 16 de julio de 2012 17:06

Todas las respuestas

  • PrintDialog (Clase)

    Aqui tiene un ejemplo que muestra lo que quiere


    Angel R. Jimenez G.
    Software Development
    Santo Domingo
    Republica Dominicana
    Blog

    viernes, 13 de julio de 2012 3:56
  • hola

    http://social.msdn.microsoft.com/Forums/en-US/vbpowerpacks/thread/72f63e72-0841-4f7d-b732-7755e751d78b/

    usa

    Private Sub buttonPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    
            Dim printDialog1 As PrintDialog = New PrintDialog
    
            printDialog1.Document = printDocument1
    
            Dim result As DialogResult = printDialog1.ShowDialog
    
            If (result = DialogResult.OK) Then
    
                printDocument1.Print()
    
            End If
    
        End Sub

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    • Marcado como respuesta caudiz lunes, 16 de julio de 2012 17:22
    viernes, 13 de julio de 2012 4:17
  • Saludos,

    Gracias por la ayuda brindada, he utilizado el siguiente codigo para resolver mi problema:

            Dim result As DialogResult = DIALOGO_IMPRESION.ShowDialog
            If (result = DialogResult.OK) Then


                CONTROL_IMPRIMIR.PrinterSettings = DIALOGO_IMPRESION.PrinterSettings
                CONTROL_IMPRIMIR.PrinterSettings.DefaultPageSettings.Margins.Top = 10
                CONTROL_IMPRIMIR.PrinterSettings.DefaultPageSettings.Margins.Bottom = 10
                CONTROL_IMPRIMIR.PrinterSettings.DefaultPageSettings.Margins.Left = 10
                CONTROL_IMPRIMIR.PrinterSettings.DefaultPageSettings.Margins.Right = 10
                CONTROL_IMPRIMIR.PrinterSettings.DefaultPageSettings.Landscape = True

                CONTROL_IMPRIMIR.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.CompatibleModeClientAreaOnly)
            End If

    Con este codigo se abre primero la configuracion de impresión para elegir impresora y demás, luego se abre la vista previa de lo que voy a imprimir.

    Gracias, buen dia a todos.

    • Marcado como respuesta caudiz lunes, 16 de julio de 2012 17:22
    lunes, 16 de julio de 2012 17:06