CARA: Meningkatkan dan kotak-kotak Dialog cetak kontrol dari Visual Basic

Kembali ke atas

Men-download kontrol

Kembali ke atas

Menginstal Vbprndlg.exe

1. Ekstrak file ke lokasi yang tidak akan dihapus dan yang memiliki jalur sederhana. File jenis ini biasanya diletakkan dalam Direktori system32 Windows atau direktori Winnt.
2. Klik Mulai, lalu klik Menjalankan.
3. Ketik berikut, dan kemudian klik Oke:
   RegSvr32 C:\Windows\System32\VBPrnDlg.dll
   Pastikan bahwa Anda menggunakan jalur penuh sebenarnya untuk DLL sebagai bagian kedua dari perintah ini.
   
   Anda menerima pesan yang DLL berhasil terdaftar.

Kembali ke atas

Printerdlg kelas dokumentasi

Kembali ke atas

Kotak dialog properti

Printer.Copies = printDlg.Copies
				

• Salinan
• Orientasi
• ColorMode
• DriverName
• Duplex
• PaperBin
• PaperSize
• Pelabuhan
• PrintQuality
• hDC
• PrinterName *
• Min *
• Max *
• FromPage *
• ToPage *

Kembali ke atas

Dialog kontrol metode dan properti

• Bendera -Ini adalah sama dengan Bendera properti pada CommonDialog kontrol. Mengontrol beberapa fitur kotak dialog. Ini nilai diatur menggunakan "atau" dengan konstanta yang berbeda dalam VBPrinterConstants struktur. Misalnya:

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

  Konstanta ini adalah:

  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.
  
  					

  Anda dapat menggunakan Bendera properti untuk menentukan jika pengguna memilih bidang seperti Mencetak ke File. Untuk melakukannya, lihat untuk melihat apakah cdlPDPrintToFile Bendera telah diatur ketika kontrol telah kembali dari menampilkan kotak dialog.
  
  
• CancelError -Ini adalah bendera Boolean yang menentukan apakah kesalahan kembali ke program jika pengguna mengklik Batalkan. Secara default, ini adalah palsu, jadi kesalahan tidak terjadi jika Klik pengguna Batalkan. Ketika ini diatur ke True, nomor kesalahan 32755 (& H7FF3) terjadi ketika pengguna mengklik Batalkan. Anda bisa menjebak kesalahan ini untuk menangani kasus di mana pengguna membatalkan kotak dialog.
• ShowPrinter -Ini adalah satu-satunya metode di kelas ini. Memanggil metode ini menampilkan kotak dialog. Ini menerima menangani panggilan jendela sebagai parameter. Sebagai contoh, berikut metode mengembalikan Boolean:

  printDlg.ShowPrinter Me.hWnd
  						

  Ini dapat diabaikan. Nilai adalah True jika pengguna mengklik Mencetak Palsu dan sebaliknya (itu adalah, jika pengguna mengklik Batalkan).

Dim printDlg As PrinterDlg
Set printDlg = New PrinterDlg
				

Kembali ke atas

Langkah-langkah untuk membangun sampel

1. Di Microsoft Visual Basic, membuat baru Standard EXE proyek. Secara default, Form1 dibuat.
2. Pada Project menu, klik Referensi.
3. Pilih Microsoft VB Printer Dialog(PSS), kemudian klik Oke.
4. Tambahkan CommandButton mengendalikan ke bentuk. Secara default, Command1 dibuat.
5. Klik dua kali Command1.
6. Paste kode berikut di Command1_Click acara:

   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. Tekan tombol F5 untuk memulai debug dan untuk mulai aplikasi. Klik Command1 untuk membuka Mencetak kotak dialog.
8. Setelah Anda kembali dari Mencetak kotak dialog, melihat pada jendela Debug output yang kembali.

Kembali ke atas