Cómo determinar el número de páginas de diálogo de impresión en VB.NET

Determinar el número de páginas de un control " PrintDialog " en la aplicación de Visual Basic.NET se puede lograr fácilmente con una serie de propiedades . Una clase " PrintDialog " permite a los usuarios seleccionar una impresora y elegir qué secciones del documento a imprimir desde una aplicación de Windows Forms. Obtener los parámetros de la impresora mediante la propiedad " PrinterSettings " . Se puede determinar el número de páginas para el número de copias o el número mínimo y máximo de página , con la misma propiedad. Cosas que necesitará
Microsoft Visual Studio
Ver Más instrucciones
1

lanzamiento Microsoft Visual Studio , haga clic en "Nuevo proyecto " en el panel izquierdo de la pantalla del ordenador , y ampliar " Plantillas instaladas . " abajo " Visual Basic" Haga clic en "Windows " y haga doble clic en " Aplicación de Windows Forms " en el centro de la ventana de diálogo para crear un nuevo proyecto.
2

doble clic en " Button " en el panel "Toolbox" para añadir un nuevo botón al formulario. Haga clic en el formulario y haga clic en " Ver código " para abrir un módulo de código
3

Añada la siguiente línea de código para crear una variable global a esta imagen .
< p> Private docToPrint WithEvents como nuevo Printing.PrintDocument
4

Copia y pega el código siguiente para crear un nuevo evento click :

Private Sub Button1_Click ( remitente de ByVal como System.Object , _

ByVal e como System.EventArgs ) Handles Button1.Click
5

Copia y pega el código siguiente para determinar el número de páginas del control " PrintDialog1 ":
< p> PrintDialog1.AllowSomePages = True

Dim minPage = PrintDialog1.PrinterSettings.MinimumPage

Dim maxPage = PrintDialog1.PrinterSettings.MaximumPage

Dim pageCnt = PrintDialog1.PrinterSettings.Copies

MessageBox.Show ( "page Min :" & _ minPage

y "Página de Max :" & _ maxPage

y " Número de copias :" & pageCnt )

PrintDialog1.ShowHelp = True

PrintDialog1.Document = docToPrint

resultado As DialogResult = PrintDialog1.ShowDialog ()

Si ( resultado = DialogResult.OK ) Entonces

docToPrint.Print ()

End If End Sub

6

Press "F5 " para ejecutar el programa y haga clic en " Button1 "para mostrar un cuadro de mensaje con la página min , max página y el número de copias que desea imprimir .