Determinar a contagem de página para um controle " PrintDialog " em seu aplicativo Visual Basic.NET pode ser facilmente conseguido usando algumas propriedades. A classe " PrintDialog " permite aos usuários selecionar uma impressora e escolher quais seções do documento para imprimir a partir de um aplicativo do Windows Forms. Receba as configurações da impressora , utilizando a propriedade " PrinterSettings " . Você pode determinar o número de páginas para o número de cópias , ou o mínimo e contagem máxima de páginas , usando a mesma propriedade. Coisas que você precisa 
 Microsoft Visual Studio 
 Show Mais instruções 
 1 
 Abra o Microsoft Visual Studio , clique em " New Project" no painel esquerdo da tela do computador , e expandir " Visual Basic" abaixo " modelos instalados ". Clique em " Windows" e clique duas vezes no centro da janela de diálogo para criar um novo projeto "Windows Forms Application " . 
 2 
 Clique duas vezes em "Button" no painel "Toolbox " para adicionar um novo botão ao seu formulário. Direito do mouse no formulário e clique em "View Code " para abrir um módulo de código 
 3 
 Adicione a seguinte linha de código para criar uma variável global para este ficheiro: . 
 
 WithEvents privados docToPrint as New Printing.PrintDocument 
 4 
 Copie e cole o seguinte código para criar um novo evento clique: 
 
 Private Sub Button1_Click (sender System.Object , _ 
 
 ByVal e As System.EventArgs ) Handles Button1.Click 
 5 
 Copiar e colar o seguinte código para determinar o número de páginas a partir do controle " PrintDialog1 " : 
 
 PrintDialog1.AllowSomePages = True 
 
 Dim minPage = PrintDialog1.PrinterSettings.MinimumPage 
 
 Dim maxPage = PrintDialog1.PrinterSettings.MaximumPage 
 
 Dim pageCnt = PrintDialog1.PrinterSettings.Copies 
 
 MessageBox.Show (" página Min :" & _ minPage 
 
 & " página Max :" & _ maxPage 
 
 & "Num dos exemplares :" & pageCnt ) < br > 
 PrintDialog1.ShowHelp = True 
 
 PrintDialog1.Document = docToPrint 
 
 Dim result As DialogResult = PrintDialog1.ShowDialog () 
 
 Se ( resultado = DialogResult.OK ) Então 
 
 docToPrint.Print () 
 
 End If End Sub 
 
 
 6 
 Pressione " F5" para executar o programa e clique em " Button1 "para exibir uma caixa de mensagem com a página min, max página eo número de cópias a serem impressas.