COMO: Aumentar e caixas de diálogo de impressão de controlo a partir do Visual Basic

Voltar ao topo

Transferir o controlo

Voltar ao topo

Instalar Vbprndlg.exe

1. Extrai os ficheiros para uma localização que não serão eliminados e que tem um caminho simples. Estes tipos de ficheiros são normalmente colocados no directório System32 do Windows ou o directório Winnt.
2. Clique em Iniciar e, em seguida, clique em Executar .
3. Escreva o seguinte e, em seguida, clique em OK :
   RegSvr32 C:\Windows\System32\VBPrnDlg.dll
   Certifique-se que utiliza o actual caminho completo para a DLL como a segunda parte deste comando.
   
   Recebe uma mensagem que a DLL registada com êxito.

Voltar ao topo

Classe Printerdlg documentação

Voltar ao topo

Propriedades da caixa de diálogo

Printer.Copies = printDlg.Copies
				

• cópias
• orientação
• ColorMode
• NomeControlador
• frente e verso
• PaperBin
• PaperSize
• porta
• PrintQuality
• hDC
• NomeImpressora *
• min *
• máximo *
• FromPage *
• ToPage *

Voltar ao topo

Propriedades e métodos de controlo de diálogo

• sinalizadores - isto é igual a propriedade Flags do controlo CommonDialog . Controla algumas das funcionalidades da caixa de diálogo. Este valor é definido utilizando "ou" com diferentes constantes em VBPrinterConstants estrutura. Por exemplo:

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

  estas constantes estã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.
  
  					

  pode utilizar a propriedade Flags para determinar se o utilizador escolheu um campo como Imprimir para ficheiro . Para efectuar este procedimento, consulte Para ver se foi definido o sinalizador cdlPDPrintToFile quando o controlo tem de apresentar a caixa de diálogo.
  
  
• CancelError - isto é um sinalizador booleano que determina se é devolvido um erro para o programa se o utilizador clica em ' Cancelar ' . Por predefinição, é FALSE, para que um erro não ocorre se o utilizador clica em ' Cancelar ' . Quando este é definido como TRUE, o número de erro 32755 (& H7FF3) ocorre quando o utilizador clica em Cancelar . Pode aplicar um véu este erro para processar um incidente no qual o utilizador cancela a caixa de diálogo.
• ShowPrinter - este é o único método desta classe. Chamar este método apresenta a caixa de diálogo. Este aceita o identificador da janela de chamada como um parâmetro. Por exemplo, o seguinte método devolve um valor boleano:

  printDlg.ShowPrinter Me.hWnd
  						

  Isto pode ser ignorado. O valor é TRUE se o utilizador clica Imprimir e FALSO caso contrário (isto é, se o utilizador clica em ' Cancelar ' ).

Dim printDlg As PrinterDlg
Set printDlg = New PrinterDlg
				

Voltar ao topo

Passos para criar o exemplo

1. No Microsoft Visual Basic, crie um EXE padrão novo projecto. Por predefinição, é criado o Form1.
2. No menu projecto , clique em References .
3. Seleccione Microsoft VB impressora Dialog(PSS) e, em seguida, clique em OK .
4. Adicione um controlo CommandButton ao formulário. Por predefinição, é criado Command1 .
5. Faça duplo clique 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. Prima a tecla F5 para iniciar a depuração e para iniciar a aplicação. Clique em Command1 para abrir a caixa de diálogo Imprimir .
8. Depois de voltar a partir da caixa de diálogo Imprimir , observe a janela Depurar o resultado foi devolvido.

Voltar ao topo