none
Vista Previa Maximizada y Zoom¡¡¡ RRS feed

  • Pregunta

  • Hola buen dia, estoy tratando de buscar alguna propiedad al PrintPreviewDialog para que salga maximizado y con zoom de 100% ya q por defual sale una ventanita pequeña y el zoom prederminado el codigo q utilizo es:

    Private Sub VistaPreeliminarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VistaPreeliminarToolStripMenuItem.Click
            Try
                Dim PrintDocument1 As New PrintDocument
                AddHandler PrintDocument1.PrintPage, AddressOf Me.ImprimirTexto
                Dim prnTxt1 As New PrintPreviewDialog
                prnTxt1.Document = PrintDocument1
                prnTxt1.Text = " Vista Previa "
                DirectCast((prnTxt1.Controls(1)), ToolStrip).Items(0).Visible = False
                pág = 1
                prnTxt1.ShowDialog()
            Catch ex As Exception
                MsgBox("Ex : " & ex.ToString)
            End Try
        End Sub

    De esta forma esta hecha mi vista previa del documento q voy a imprimir, Espero de su valiosa ayuda, de verdad q ya le busque y no he encontrado hacerca de este tema nuevamente gracias!!!!


    dikerjarp

    lunes, 29 de abril de 2013 18:50

Respuestas

  • Intenta con esto y nos comentas ok?

    Dim dialog As New PrintPreviewDialog()
    
    dialog.Document = printDoc
    
    DirectCast(dialog, Form).WindowState = FormWindowState.Maximized
    dialog.ShowDialog()
    


    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    • Marcado como respuesta DIKERJARP lunes, 29 de abril de 2013 21:03
    lunes, 29 de abril de 2013 20:34
  • Hola pues buscando con mañas para q saliera y antes de ver tu comentario comparto la forma en q tambien me salio,

      prnTxt1.Width = (Screen.PrimaryScreen.WorkingArea.Width)
                prnTxt1.Height = (Screen.PrimaryScreen.WorkingArea.Height)

    Y tu respuesta me parece mucho mejor ya son una linea menos pero una es una te agradesco!!!

    Saludos Cordiales!!


    dikerjarp

    • Marcado como respuesta DIKERJARP lunes, 29 de abril de 2013 21:03
    lunes, 29 de abril de 2013 21:02

Todas las respuestas

  • Intenta con esto y nos comentas ok?

    Dim dialog As New PrintPreviewDialog()
    
    dialog.Document = printDoc
    
    DirectCast(dialog, Form).WindowState = FormWindowState.Maximized
    dialog.ShowDialog()
    


    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    • Marcado como respuesta DIKERJARP lunes, 29 de abril de 2013 21:03
    lunes, 29 de abril de 2013 20:34
  • Hola pues buscando con mañas para q saliera y antes de ver tu comentario comparto la forma en q tambien me salio,

      prnTxt1.Width = (Screen.PrimaryScreen.WorkingArea.Width)
                prnTxt1.Height = (Screen.PrimaryScreen.WorkingArea.Height)

    Y tu respuesta me parece mucho mejor ya son una linea menos pero una es una te agradesco!!!

    Saludos Cordiales!!


    dikerjarp

    • Marcado como respuesta DIKERJARP lunes, 29 de abril de 2013 21:03
    lunes, 29 de abril de 2013 21:02
  • Gracias por tu respuesta, a mi también me fue muy útil.

    siempre me olvido de castear....

    gracias de nuevo.

    domingo, 19 de mayo de 2013 5:20