COMO: Aumentar e caixas de diálogo de impressão de controle do Visual Basic

Voltar para o início

Baixar o controle

Voltar para o início

Instalar Vbprndlg.exe

1. Extrair os arquivos para um local que não serão excluídos e que tenha um caminho simples. Esses tipos de arquivos normalmente são colocados no diretório System32 sob o Windows ou a pasta Winnt.
2. Clique em Iniciar e, em seguida, clique em Executar .
3. Digite o seguinte e, em seguida, clique em OK :
   RegSvr32 C:\Windows\System32\VBPrnDlg.dll
   Se certificar de que você usa o caminho completo real para a DLL como a segunda parte deste comando.
   
   Você recebe uma mensagem de que a DLL registrada com êxito.

Voltar para o início

Classe Printerdlg documentação

Voltar para o início

Propriedades de caixa de diálogo

Printer.Copies = printDlg.Copies
				

• cópias
• orientação
• ColorMode
• DriverName
• duplex
• PaperBin
• PaperSize
• porta
• PrintQuality
• hDC
• nome_da_impressora *
• min *
• máximo *
• FromPage *
• ToPage *

Voltar para o início

Propriedades e métodos de controle do diálogo

• sinalizadores - este é o mesmo da propriedade Flags do controle CommonDialog . Ele controla alguns dos recursos da caixa de diálogo. Esse valor é definido usando "ou" com constantes diferentes em VBPrinterConstants estrutura. Por exemplo:

  printDlg.Flags = VBPrinterConstants.cdlPDDisablePrintToFile _
                       Or VBPrinterConstants.cdlPDNoPageNums
  					

  essas constantes são:

  Constant                  Value       Description
  ---------------------------------------------------------------------------
  cdlPDAllPages             &H0         Returns or sets the state of the All 
                                        Pages option button.
  
  cdlPDCollate              &H10        Returns or sets the state of the  
                                        Collate check box.
  
  cdlPDDisablePrintToFile   &H80000     Disables the Print To File check box.
  
  cdlPDHelpButton           &H800       Causes the dialog box to display the 
                                        Help button.
  
  cdlPDHidePrintToFile      &H100000    Hides the Print To File check box.
  
  cdlPDNoPageNums           &H8         Disables the Pages option button and 
                                        the associated edit control.
  
  cdlPDNoSelection          &H4         Disables the Selection option button.
  
  cdlPDNoWarning            &H80        Prevents a warning message from being
                                        displayed when there is no default 
                                        printer.
  
  cdlPDPageNums             &H2         Returns or sets the state of the 
                                        Pages option button.
  
  cdlPDPrintSetup           &H40        Causes the system to display the 
                                        Print Setup dialog box instead of 
                                        the Print dialog box.
  
  cdlPDPrintToFile          &H20        Returns or sets the state of the 
                                        Print To File check box.
  
  cdlPDReturnDC             &H100       Returns a device context for the 
                                        printer selection made in the dialog 
                                        box. The device context is returned 
                                        in the hDC property of the dialog 
                                        box.
  
  cdlPDReturnDefault        &H400       Returns the default printer name.
  
  cdlPDReturnIC             &H200       Returns an information context for 
                                        the printer selection made in the 
                                        dialog box. An information context 
                                        provides a fast way to get 
                                        information about the device without 
                                        creating a device context. The 
                                        information context is returned in 
                                        the hDC property of the dialog box.
  
  cdlPDSelection            &H1         Returns or sets the state of the
                                        Selection option button. If neither 
                                        cdlPDPageNums nor cdlPDSelection is 
                                        specified, the All option button is 
                                        in the selected state.
  
  cdlPDUseDevModeCopies     &H40000     If a printer driver does not support
                                        multiple copies, setting this flag 
                                        disables the Number of Copies spinner
                                        control in the Print dialog box. If a
                                        driver does support multiple copies, 
                                        setting this flag indicates that the 
                                        dialog box stores the requested 
                                        number of copies in the Copies 
                                        property.
  
  					

  você pode usar a propriedade Flags para determinar se o usuário escolher um campo como Imprimir em arquivo . Para fazer isso, consulte para ver se o sinalizador cdlPDPrintToFile foi definido quando o controle retornou de exibir a caixa de diálogo.
  
  
• CancelError - este é um sinalizador booleano que determina se um erro é retornado para o programa se o usuário clicar em Cancelar . Por padrão, isso é False, então um erro não ocorre se o usuário clicar em Cancelar . Quando isso é definido como True, número do erro 32755 (& H7FF3) ocorre quando o usuário clica em Cancelar . Você pode ajustar o registro esse erro para lidar com um caso em que o usuário cancela a caixa de diálogo.
• ShowPrinter - este é o único método nesta classe. Chamar esse método exibe a caixa de diálogo. Isso aceita o identificador da janela de chamada como um parâmetro. Por exemplo, o método a seguir retorna um valor booleano:

  printDlg.ShowPrinter Me.hWnd
  						

  isso pode ser ignorado. O valor é True se o usuário clicar em Imprimir e FALSO caso contrário (ou seja, se o usuário clicar em Cancelar ).

Dim printDlg As PrinterDlg
Set printDlg = New PrinterDlg
				

Voltar para o início

Etapas para criar o exemplo

1. No Microsoft Visual Basic, crie um EXE padrão novo projeto. Por padrão, é criado o Form1.
2. No menu Project , clique em referências .
3. Selecione Microsoft VB impressora Dialog(PSS) e, em seguida, clique em OK .
4. Adicione um controle CommandButton ao formulário. Por padrão, Command1 é criado.
5. Clique duas vezes em Command1 .
6. Cole o seguinte código no evento Command1_Click :

   Dim printDlg As PrinterDlg
   Set printDlg = New PrinterDlg
   ' Set the starting information for the dialog box based on the current
   ' printer settings.
   printDlg.PrinterName = Printer.DeviceName
   printDlg.DriverName = Printer.DriverName
   printDlg.Port = Printer.Port
   
   ' Set the default PaperBin so that a valid value is returned even
   ' in the Cancel case.
   printDlg.PaperBin = Printer.PaperBin
   
   ' Set the flags for the PrinterDlg object using the same flags as in the
   ' common dialog control. The structure starts with VBPrinterConstants.
   printDlg.Flags = VBPrinterConstants.cdlPDNoSelection _
                    Or VBPrinterConstants.cdlPDNoPageNums _
                    Or VBPrinterConstants.cdlPDReturnDC
   Printer.TrackDefault = False
   
   ' When CancelError is set to True the ShowPrinterDlg will return error
   ' 32755. You can handle the error to know when the Cancel button was
   ' clicked. Enable this by uncommenting the lines prefixed with "'**".
   '**printDlg.CancelError = True
   
   ' Add error handling for Cancel.
   '**On Error GoTo Cancel
   If Not printDlg.ShowPrinter(Me.hWnd) Then
       Debug.Print "Cancel Selected"
       Exit Sub
   End If
   
   'Turn off Error Handling for Cancel.
   '**On Error GoTo 0
   Dim NewPrinterName As String
   Dim objPrinter As Printer
   Dim strsetting As String
   
   ' Locate the printer that the user selected in the Printers collection.
   NewPrinterName = UCase$(printDlg.PrinterName)
   If Printer.DeviceName <> NewPrinterName Then
       For Each objPrinter In Printers
          If UCase$(objPrinter.DeviceName) = NewPrinterName Then
               Set Printer = objPrinter
          End If
       Next
   End If
   
   ' Copy user input from the dialog box to the properties of the selected printer.
   Printer.Copies = printDlg.Copies
   Printer.Orientation = printDlg.Orientation
   Printer.ColorMode = printDlg.ColorMode
   Printer.Duplex = printDlg.Duplex
   Printer.PaperBin = printDlg.PaperBin
   Printer.PaperSize = printDlg.PaperSize
   Printer.PrintQuality = printDlg.PrintQuality
   
   ' Display the results in the immediate (Debug) window.
   ' NOTE: Supported values for PaperBin and Size are printer specific. Some
   ' common defaults are defined in the Win32 SDK in MSDN and in Visual Basic.
   ' Print quality is the number of dots per inch.
   With Printer
       Debug.Print .DeviceName
       If .Orientation = 1 Then
           strsetting = "Portrait. "
       Else
           strsetting = "Landscape. "
       End If
       Debug.Print "Copies = " & .Copies, "Orientation = " & _
          strsetting
       If .ColorMode = 1 Then
           strsetting = "Black and White. "
       Else
           strsetting = "Color. "
       End If
       Debug.Print "ColorMode = " & strsetting
       If .Duplex = 1 Then
           strsetting = "None. "
       ElseIf .Duplex = 2 Then
           strsetting = "Horizontal/Long Edge. "
       ElseIf .Duplex = 3 Then
           strsetting = "Vertical/Short Edge. "
       Else
           strsetting = "Unknown. "
       End If
       Debug.Print "Duplex = " & strsetting
       Debug.Print "PaperBin = " & .PaperBin
       Debug.Print "PaperSize = " & .PaperSize
       Debug.Print "PrintQuality = " & .PrintQuality
       If (printDlg.Flags And VBPrinterConstants.cdlPDPrintToFile) = _
          VBPrinterConstants.cdlPDPrintToFile Then
            Debug.Print "Print to File Selected"
       Else
            Debug.Print "Print to File Not Selected"
       End If
       Debug.Print "hDC = " & printDlg.hDC
   End With
   Exit Sub
   '**Cancel:
   '**If Err.Number = 32755 Then
   '**    Debug.Print "Cancel Selected"
   '**Else
   '**    Debug.Print "A nonCancel Error Occured - "; Err.Number
   '**End If
   					

7. Pressione a tecla F5 para iniciar a depuração e iniciar o aplicativo. Clique em Command1 para abrir a caixa de diálogo Imprimir .
8. Depois de retornar da caixa de diálogo Imprimir , procure na janela Depurar a saída que foi retornada.

Voltar para o início