Cara mencetak menggunakan Custom ukuran halaman pada Windows NT dan Windows 2000

Microsoft Windows 95, Windows 98, dan Windows Millennium Edition (Me) yang fleksibel pada ukuran halaman kustom, buatan pengguna. Namun, pada sistem yang menjalankan Windows NT dan Windows 2000, Anda harus menentukan semua halaman ukuran sebagai bentuk sebelum Anda dapat menggunakannya. Artikel ini menjelaskan cara mencetak ukuran halaman kustom pada Windows NT dan Windows 2000 dan termasuk kode contoh yang menunjukkan cara untuk menambahkan, pilih, dan menghapus bentuk kustom.

CATATAN: Karena dari perilaku Visual Basic 5.0 Printer objek, perubahan DEVMODE yang dibuat oleh panggilan untuk ResetDC tidak berpengaruh. Dengan demikian, kode contoh dalam artikel ini tidak bekerja dari Visual Basic 5.0.

Artikel ini dibagi menjadi bagian berikut:

• DEVMODE anggota yang tentukan, atau pilih ukuran halaman
• Cara pemrograman memilih bentuk
• Sumber-sumber bentuk dan fungsi
• Langkah-langkah untuk menambahkan Driver cetak lokal untuk Printer jaringan
• Contoh langkah demi langkah

DEVMODE anggota yang tentukan, atau pilih ukuran halaman

Driver printer menyimpan pengaturan default dalam struktur yang disebut DEVMODE. Ketika Anda tentukan, atau pilih ukuran halaman, empat anggota struktur ini mungkin terlibat:

• dmPaperSize
• dmPaperLength
• dmPaperWidth
• dmFormName

The dmPaperLength dan dmPaperWidth anggota berisi nilai-nilai pada semua sistem operasi, tetapi mereka hanya dapat digunakan untuk memilih atau menentukan ukuran pada sistem yang menjalankan Windows 95, Windows 98 atau Windows Me. dmFormName anggota ini hanya berlaku untuk sistem yang menjalankan Windows NT atau Windows 2000. The dmPaperSize anggota dapat digunakan pada setiap sistem operasi Windows 32-bit, selama nilai yang ditugaskan untuk itu sesuai dengan ukuran atau bentuk yang didefinisikan pada sistem.

Dengan demikian, pada sistem yang menjalankan Windows 95, Windows 98, atau Windows Me, Anda dapat menentukan ukuran halaman kustom dengan tinggi (panjang) dan lebar atau ukuran standar kertas. Berbasis Windows 2000 atau Windows NT berbasis sistem hanya menggunakan bentuk-bentuk didefinisikan untuk halaman ukuran, yang Anda dapat memilih di salah satu dari dua cara: set dmFormName atau menetapkan nilai "konstan" berlaku untuk dmPaperSize.

Untuk menggunakan ukuran kertas tertentu pada Windows NT atau Windows 2000, Anda harus menentukan bentuk untuk itu. Visual Basic Printer objek telah PageSize, Tinggi, dan Lebar properti yang mengekspos dmPaperSize, dmPaperLength, dan dmPaperWidth anggota DEVMODE. Namun, Printer objek tidak mengekspos cara untuk memilih bentuk oleh nama, juga tidak ada metode untuk menambahkan bentuk kustom pada jangka waktu. Kita harus menggunakan Win32 antarmuka pemrograman aplikasi (API) untuk membuat bentuk kustom dan/atau memilih bentuk dengan nama.

Cara pemrograman memilih bentuk

Artikel ini menggunakan EnumForms proses dasar untuk daftar semua bentuk yang didukung untuk printer saat ini dan untuk memeriksa tinggi dan lebar dari setiap bentuk. Jika ukuran tertentu ditemukan, ya. Jika tidak ditemukan, kode menambahkan bentuk dan kemudian memilih itu.

Ada tiga cara untuk pemrograman memilih bentuk:

• Mengambil struktur DEVMODE printer, mengatur dmFormName anggota, dan penggunaan ResetDC fungsi untuk mengatur bentuk ini sebagai bentuk untuk perangkat konteks (DC) printer. Ketika formulir ini dipilih untuk DC, itu hanya dipilih untuk proses panggilan dan tidak mengubah pengaturan default pengemudi. Ini tidak memerlukan izin khusus. Metode ini lebih disukai untuk aplikasi yang mengubah pengaturan printer.
• Panggilan SetForm fungsi untuk mengubah bentuk standar untuk pengandar printer. Metode ini memerlukan izin akses penuh ke driver. Ketika bentuk standar berubah, itu mempengaruhi setiap aplikasi yang menggunakan pengandar ini untuk mencetak. Jika printer jaringan, sebagian besar pengguna tidak memiliki izin yang diperlukan untuk membuat panggilan ini.
• Menetapkan nilai didefinisikan sistem untuk bentuk kustom untuk Printer.PaperSize.

Hanya metode pertama ini ditunjukkan dalam kode contoh artikel ini; sampel tidak menunjukkan panggilan untuk SetForm atau nilai tugas untuk Printer.PaperSize. Sampel menangkap ditugaskan sistem nilai bentuk kustom baru dengan kembali nilai posisi urutan dalam daftar yang EnumForms kembali. Perhatikan bahwa ini hanya bekerja untuk bentuk kustom. Bentuk-bentuk standar memiliki nilai konstan yang diberikan kepada mereka yang tidak sesuai dengan posisi mereka urutan dalam daftar ini.

Ketika Anda menggunakan AddForm berfungsi untuk menambahkan formulir Anda kustom, bentuk diberikan nomor sendiri, jika tersedia, yang kemudian tetap konsisten di semua printer yang menggunakan formulir. Dalam kasus ini, bentuk didefinisikan dan diberikan nilai "konstan" untuk sistem saat ini. Anda kemudian dapat menetapkan nilai ini untuk Printer.PaperSize untuk memilihnya. Namun, karena tugas nomor hanyalah salah satu lebih dari beberapa bentuk yang tercantum untuk printer saat ini ketika bentuk ditambahkan, nomor ini mungkin tidak tersedia karena bentuk standar sudah menggunakan angka itu. Oleh karena itu, tidak dianjurkan bahwa Anda menggunakan nilai ini untuk memilih bentuk, dan nilai ini tidak menunjukkan di sini. Jika Anda menggunakan tugas ini nomor, dan nilai untuk itu tidak tersedia, itu akan baik pilih salah bentuk atau meningkatkan galat run-time 380: "Nilai properti tidak sah."

Sumber-sumber bentuk dan fungsi

Kebanyakan bentuk didefinisikan oleh sistem operasi dan tersedia untuk semua printer lokal. Namun, bentuk untuk jaringan printer yang ditetapkan pada printer server. Beberapa bentuk dapat didefinisikan secara khusus untuk pengandar printer tertentu dan hanya muncul dalam daftar untuk driver. Sumber lain untuk bentuk adalah bentuk terdefinisi atau ditetapkan pengguna, yang dapat dibuat secara manual atau melalui kode dan tersedia untuk semua printer lokal pada sistem. Bentuk-bentuk khusus printer dan ditetapkan pengguna disimpan dalam registri.

Contoh dalam artikel ini menggunakan beberapa panggilan fungsi yang berhubungan dengan bentuk. Secara singkat, fungsi utama adalah sebagai berikut:



Meskipun sampel tidak menggunakan fungsi-fungsi berikut, termasuk Declares untuk fungsi-fungsi ini:



Harus ditekankan bahwa beberapa fungsi-fungsi ini memerlukan izin kontrol penuh pada printer. Oleh karena itu, SetForm, AddForm, dan DeleteForm fungsi hampir tidak pernah bekerja untuk printer yang diinstal sebagai "printer jaringan." Hal ini karena driver untuk printer jaringan tidak diinstal secara lokal tapi berada pada printer server, dan account pengguna tidak memiliki hak Administrator pada printer server. Ini berbeda dari sistem yang menjalankan Windows 95, Windows 98, atau Windows Me, di mana semua printer (printer jaringan bahkan) selalu driver secara lokal. Namun, Anda dapat menginstal printer jaringan sebagai printer lokal pada Windows NT atau Windows 2000 dan mengatur Port untuk antrian printer. Maka Anda dapat menggunakan fungsi ini untuk membuat perubahan tanpa mempengaruhi pengguna lain yang berbagi printer.

Langkah-langkah untuk menambahkan Driver Printer lokal untuk Printer jaringan

1. Pada Mulai menu, titik Tataan, lalu klik Printer. Klik dua kali Tambahkan Printer untuk memulai Wisaya Penambahan Printer.
2. Ketika diminta, pastikan bahwa Anda klik Printer lokal atau Komputer Saya dan tidak Printer jaringan. Meskipun Anda akan terhubung ke printer jaringan, Anda ingin menggunakan pengandar di komputer saya. Klik Berikutnya untuk melanjutkan.
3. Pada Windows NT, klik Menambahkan Port. Pada Windows 2000, klik Membuat port baru.
4. Dalam kotak daftar drop-down, klik Local Port. Pada Windows NT, klik Pelabuhan baru. Pada Windows 2000, klik Berikutnya, dan Anda akan diminta untuk Pelabuhan nama.
5. Ketik lokasi printer pada jaringan. Misalnya:
   \\printserver\printername
   di mana Anda menggunakan nama path yang tepat untuk printer.
6. Klik Oke, dan menyelesaikan Wisaya.

Jika Anda mengubah properti printer untuk printer aktif, Anda masih mempengaruhi semua aplikasi yang menggunakan printer itu, tetapi hanya untuk sistem lokal.

PENTING Ketika Anda menggunakan ukuran halaman kustom, perilaku berbeda antara Laser atau tinta Jet printer dan Dot Matrix atau dampak printer. Jelas, tidak ada printer yang menerima ukuran halaman yang lebih luas daripada fisik dapat menampung. Tapi printer yang menggunakan terus-menerus feed kertas dapat fleksibel pada halaman ukuran karena mereka mencetak satu baris pada satu waktu. Bergantian, Laser dan tinta Jet printer mencetak satu halaman pada satu waktu. Jadi, misalnya, ketika Anda mencetak ke printer Dot Matrix (yang menggunakan terus-menerus feed kertas), Anda dapat dengan mudah melihat halaman panjang selama bentuk feed karena printer kemajuan ke tempat di mana mereka mengharapkan atas halaman berikutnya untuk memulai, terlepas dari ukuran fisik kertas yang menggunakan. Pada Laser dan tinta Jet printer, suatu bentuk feed selalu menyemburkan halaman penuh fisik terlepas dari ukuran halaman mengharapkan. Juga, pada kebanyakan Laser printer layar membaca "Beban Custom" (atau serupa) ketika Anda meminta printer untuk mencetak pada ukuran halaman yang ditetapkan pengguna.

Contoh langkah demi langkah

1. Mengatur printer lokal sebagai default printer. Untuk melakukannya, ikuti langkah-langkah berikut:
   1. Pada Mulai menu, titik Tataan, lalu klik Printer.
   2. Klik kanan ikon untuk printer lokal, dan kemudian klik Ditetapkan sebagai default.
2. Memulai sebuah proyek Standard EXE yang baru dalam Visual Basic. Form1 dibuat secara default.
3. Tambahkan CommandButtons tiga dan sebuah ListBox DNS untuk Form1.
4. Paste kode berikut ke dalam modul Form1:

   Option Explicit
   
   Private Sub Command1_Click()
   Dim FormName As String
   
   FormName = "MyCustomForm"   ' Use special, user-defined form.
   UseForm FormName
   End Sub
   
   Private Sub Command2_Click()
   Dim FormName As String
   
   ' Get FormName from the ListBox.
   On Error GoTo ListBoxERR    ' Trap for no selection.
   FormName = Mid(List1.Text, 1, InStr(1, List1.Text, " -") - 1)
   On Error GoTo 0             ' Turn off Error trap.
   
   UseForm FormName
   
   Exit Sub
   ListBoxERR:
   MsgBox "Select a printer from the ListBox before using this option.", _
      vbExclamation
   End Sub
   
   Private Sub Command3_Click()
   Dim RetVal As Long
   Dim PrinterHandle As Long   ' Handle to printer
   Dim PrinterName As String
   Dim FormName As String
   Dim Continue As Long
   
   ' Delete form that is selected in ListBox.
   PrinterName = Printer.DeviceName  ' Current printer
   If OpenPrinter(PrinterName, PrinterHandle, 0&) Then
   
       On Error GoTo ListBoxERR    ' Trap for no selection.
       FormName = Mid(List1.Text, 1, InStr(1, List1.Text, " -") - 1)
       On Error GoTo 0             ' Turn off Error trap.
       
       Continue = MsgBox("Are you sure you want to permanently remove " & _
                  FormName & " from " & PrinterName & "?", vbYesNo)
       If Continue = vbYes Then
           RetVal = DeleteForm(PrinterHandle, FormName & Chr(0))
           If RetVal <> 0 Then ' DeleteForm succeeded.
               List1.Clear     ' Reflect the deletion in the ListBox.
               Form_Load       ' Rebuild the list.
               MsgBox FormName & " deleted!", vbInformation, "Success!"
           Else
               MsgBox FormName & " not deleted!" & vbCrLf & vbCrLf & _
                  "Error code: " & Err.LastDllError, vbInformation, "Failure!"
           End If
       End If
       ClosePrinter (PrinterHandle)
   End If
   
   Exit Sub
   ListBoxERR:
   MsgBox "Select a printer from the ListBox before using this option.", _
      vbExclamation
   ClosePrinter (PrinterHandle)
   End Sub
   
   Private Sub Form_Load()
   Dim NumForms As Long, I As Long
   Dim FI1 As FORM_INFO_1
   Dim aFI1() As FORM_INFO_1           ' Working FI1 array
   Dim Temp() As Byte                  ' Temp FI1 array
   Dim BytesNeeded As Long
   Dim PrinterName As String           ' Current printer
   Dim PrinterHandle As Long           ' Handle to printer
   Dim FormItem As String              ' For ListBox
   Dim RetVal As Long
   Dim FormSize As SIZEL               ' Size of desired form
   
   PrinterName = Printer.DeviceName    ' Current printer
   If OpenPrinter(PrinterName, PrinterHandle, 0&) Then
       With FormSize   ' Desired page size
           .cx = 214000
           .cy = 216000
       End With
       ReDim aFI1(1)
       RetVal = EnumForms(PrinterHandle, 1, aFI1(0), 0&, BytesNeeded, _
                NumForms)
       ReDim Temp(BytesNeeded)
       ReDim aFI1(BytesNeeded / Len(FI1))
       RetVal = EnumForms(PrinterHandle, 1, Temp(0), BytesNeeded, _
                BytesNeeded, NumForms)
       Call CopyMemory(aFI1(0), Temp(0), BytesNeeded)
       For I = 0 To NumForms - 1
           With aFI1(I)
               ' List name and size including the count (index).
               FormItem = PtrCtoVbString(.pName) & " - " & .Size.cx / 1000 & _
                  " mm X " & .Size.cy / 1000 & " mm   (" & I + 1 & ")"
               List1.AddItem FormItem
           End With
       Next I
       ClosePrinter (PrinterHandle)
   End If
   End Sub
   
   Private Sub UseForm(FormName As String)
   Dim RetVal As Integer
   
   RetVal = SelectForm(FormName, Me.hwnd)
   Select Case RetVal
       Case FORM_NOT_SELECTED   ' 0
           ' Selection failed!
           MsgBox "Unable to retrieve From name", vbExclamation, _
              "Operation halted!"
       Case FORM_SELECTED   ' 1
           ' Selection succeeded!
           PrintTest     ' Comment this line to avoid printing
       Case FORM_ADDED   ' 2
           ' Form added and selected.
           List1.Clear   ' Reflect the addition in the ListBox
           Form_Load     ' by rebuilding the list.
   End Select
   End Sub
   					

5. Dari Project menu, menambahkan modul baru, Module1.
6. Paste kode berikut ke Module1:

   Option Explicit
   
   Public Declare Function EnumForms Lib "winspool.drv" Alias "EnumFormsA" _
       (ByVal hPrinter As Long, ByVal Level As Long, ByRef pForm As Any, _
       ByVal cbBuf As Long, ByRef pcbNeeded As Long, _
       ByRef pcReturned As Long) As Long
   
   Public Declare Function AddForm Lib "winspool.drv" Alias "AddFormA" _
       (ByVal hPrinter As Long, ByVal Level As Long, pForm As Byte) As Long
   
   Public Declare Function DeleteForm Lib "winspool.drv" Alias "DeleteFormA" _
       (ByVal hPrinter As Long, ByVal pFormName As String) As Long
       
   Public Declare Function OpenPrinter Lib "winspool.drv" _
       Alias "OpenPrinterA" (ByVal pPrinterName As String, _
       phPrinter As Long, ByVal pDefault As Long) As Long
   
   Public Declare Function ClosePrinter Lib "winspool.drv" _
       (ByVal hPrinter As Long) As Long
   
   Public Declare Function DocumentProperties Lib "winspool.drv" _
       Alias "DocumentPropertiesA" (ByVal hwnd As Long, _
       ByVal hPrinter As Long, ByVal pDeviceName As String, _
       pDevModeOutput As Any, pDevModeInput As Any, ByVal fMode As Long) _
       As Long
   
   Public Declare Function ResetDC Lib "gdi32" Alias "ResetDCA" _
       (ByVal hdc As Long, lpInitData As Any) As Long
   
   Public Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" _
       (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
   
   Public Declare Function lstrcpy Lib "KERNEL32" Alias "lstrcpyA" _
       (ByVal lpString1 As String, ByRef lpString2 As Long) As Long
       
   ' Optional functions not used in this sample, but may be useful.
   Public Declare Function GetForm Lib "winspool.drv" Alias "GetFormA" _
       (ByVal hPrinter As Long, ByVal pFormName As String, _
       ByVal Level As Long, pForm As Byte, ByVal cbBuf As Long, _
       pcbNeeded As Long) As Long
       
   Public Declare Function SetForm Lib "winspool.drv" Alias "SetFormA" _
       (ByVal hPrinter As Long, ByVal pFormName As String, _
       ByVal Level As Long, pForm As Byte) As Long
   
   ' Constants for DEVMODE
   Public Const CCHFORMNAME = 32
   Public Const CCHDEVICENAME = 32
   Public Const DM_FORMNAME As Long = &H10000
   Public Const DM_ORIENTATION = &H1&
   
   ' Constants for PRINTER_DEFAULTS.DesiredAccess
   Public Const PRINTER_ACCESS_ADMINISTER = &H4
   Public Const PRINTER_ACCESS_USE = &H8
   Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
   Public Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _
     PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)
     
   ' Constants for DocumentProperties() call
   Public Const DM_MODIFY = 8
   Public Const DM_IN_BUFFER = DM_MODIFY
   Public Const DM_COPY = 2
   Public Const DM_OUT_BUFFER = DM_COPY
   
   ' Custom constants for this sample's SelectForm function
   Public Const FORM_NOT_SELECTED = 0
   Public Const FORM_SELECTED = 1
   Public Const FORM_ADDED = 2
   
   Public Type RECTL
           Left As Long
           Top As Long
           Right As Long
           Bottom As Long
   End Type
   
   Public Type SIZEL
           cx As Long
           cy As Long
   End Type
   
   Public Type SECURITY_DESCRIPTOR
           Revision As Byte
           Sbz1 As Byte
           Control As Long
           Owner As Long
           Group As Long
           Sacl As Long  ' ACL
           Dacl As Long  ' ACL
   End Type
   
   ' The two definitions for FORM_INFO_1 make the coding easier.
   Public Type FORM_INFO_1
           Flags As Long
           pName As Long   ' String
           Size As SIZEL
           ImageableArea As RECTL
   End Type
   
   Public Type sFORM_INFO_1
           Flags As Long
           pName As String
           Size As SIZEL
           ImageableArea As RECTL
   End Type
   
   Public Type DEVMODE
           dmDeviceName As String * CCHDEVICENAME
           dmSpecVersion As Integer
           dmDriverVersion As Integer
           dmSize As Integer
           dmDriverExtra As Integer
           dmFields As Long
           dmOrientation As Integer
           dmPaperSize As Integer
           dmPaperLength As Integer
           dmPaperWidth As Integer
           dmScale As Integer
           dmCopies As Integer
           dmDefaultSource As Integer
           dmPrintQuality As Integer
           dmColor As Integer
           dmDuplex As Integer
           dmYResolution As Integer
           dmTTOption As Integer
           dmCollate As Integer
           dmFormName As String * CCHFORMNAME
           dmUnusedPadding As Integer
           dmBitsPerPel As Long
           dmPelsWidth As Long
           dmPelsHeight As Long
           dmDisplayFlags As Long
           dmDisplayFrequency As Long
   End Type
   
   Public Type PRINTER_DEFAULTS
           pDatatype As String
           pDevMode As Long    ' DEVMODE
           DesiredAccess As Long
   End Type
   
   Public Type PRINTER_INFO_2
           pServerName As String
           pPrinterName As String
           pShareName As String
           pPortName As String
           pDriverName As String
           pComment As String
           pLocation As String
           pDevMode As DEVMODE
           pSepFile As String
           pPrintProcessor As String
           pDatatype As String
           pParameters As String
           pSecurityDescriptor As SECURITY_DESCRIPTOR
           Attributes As Long
           Priority As Long
           DefaultPriority As Long
           StartTime As Long
           UntilTime As Long
           Status As Long
           cJobs As Long
           AveragePPM As Long
   End Type
   
   Public Function GetFormName(ByVal PrinterHandle As Long, _
                             FormSize As SIZEL, FormName As String) As Integer
   Dim NumForms As Long, I As Long
   Dim FI1 As FORM_INFO_1
   Dim aFI1() As FORM_INFO_1           ' Working FI1 array
   Dim Temp() As Byte                  ' Temp FI1 array
   Dim FormIndex As Integer
   Dim BytesNeeded As Long
   Dim RetVal As Long
   
   FormName = vbNullString
   FormIndex = 0
   ReDim aFI1(1)
   ' First call retrieves the BytesNeeded.
   RetVal = EnumForms(PrinterHandle, 1, aFI1(0), 0&, BytesNeeded, NumForms)
   ReDim Temp(BytesNeeded)
   ReDim aFI1(BytesNeeded / Len(FI1))
   ' Second call actually enumerates the supported forms.
   RetVal = EnumForms(PrinterHandle, 1, Temp(0), BytesNeeded, BytesNeeded, _
            NumForms)
   Call CopyMemory(aFI1(0), Temp(0), BytesNeeded)
   For I = 0 To NumForms - 1
       With aFI1(I)
           If .Size.cx = FormSize.cx And .Size.cy = FormSize.cy Then
              ' Found the desired form
               FormName = PtrCtoVbString(.pName)
               FormIndex = I + 1
               Exit For
           End If
       End With
   Next I
   GetFormName = FormIndex  ' Returns non-zero when form is found.
   End Function
   
   Public Function AddNewForm(PrinterHandle As Long, FormSize As SIZEL, _
                              FormName As String) As String
   Dim FI1 As sFORM_INFO_1
   Dim aFI1() As Byte
   Dim RetVal As Long
   
   With FI1
       .Flags = 0
       .pName = FormName
       With .Size
           .cx = FormSize.cx
           .cy = FormSize.cy
       End With
       With .ImageableArea
           .Left = 0
           .Top = 0
           .Right = FI1.Size.cx
           .Bottom = FI1.Size.cy
       End With
   End With
   ReDim aFI1(Len(FI1))
   Call CopyMemory(aFI1(0), FI1, Len(FI1))
   RetVal = AddForm(PrinterHandle, 1, aFI1(0))
   If RetVal = 0 Then
       If Err.LastDllError = 5 Then
           MsgBox "You do not have permissions to add a form to " & _
              Printer.DeviceName, vbExclamation, "Access Denied!"
       Else
           MsgBox "Error: " & Err.LastDllError, "Error Adding Form"
       End If
       AddNewForm = "none"
   Else
       AddNewForm = FI1.pName
   End If
   End Function
   
   Public Function PtrCtoVbString(ByVal Add As Long) As String
   Dim sTemp As String * 512, x As Long
   
   x = lstrcpy(sTemp, ByVal Add)
   If (InStr(1, sTemp, Chr(0)) = 0) Then
        PtrCtoVbString = ""
   Else
        PtrCtoVbString = Left(sTemp, InStr(1, sTemp, Chr(0)) - 1)
   End If
   End Function
   
   Public Function SelectForm(FormName As String, ByVal MyhWnd As Long) _
       As Integer
   Dim nSize As Long           ' Size of DEVMODE
   Dim pDevMode As DEVMODE
   Dim PrinterHandle As Long   ' Handle to printer
   Dim hPrtDC As Long          ' Handle to Printer DC
   Dim PrinterName As String
   Dim aDevMode() As Byte      ' Working DEVMODE
   Dim FormSize As SIZEL
   
   PrinterName = Printer.DeviceName  ' Current printer
   hPrtDC = Printer.hdc              ' hDC for current Printer
   SelectForm = FORM_NOT_SELECTED    ' Set for failure unless reset in code.
   
   ' Get a handle to the printer.
   If OpenPrinter(PrinterName, PrinterHandle, 0&) Then
       ' Retrieve the size of the DEVMODE.
       nSize = DocumentProperties(MyhWnd, PrinterHandle, PrinterName, 0&, _
               0&, 0&)
       ' Reserve memory for the actual size of the DEVMODE.
       ReDim aDevMode(1 To nSize)
   
       ' Fill the DEVMODE from the printer.
       nSize = DocumentProperties(MyhWnd, PrinterHandle, PrinterName, _
               aDevMode(1), 0&, DM_OUT_BUFFER)
       ' Copy the Public (predefined) portion of the DEVMODE.
       Call CopyMemory(pDevMode, aDevMode(1), Len(pDevMode))
       
       ' If FormName is "MyCustomForm", we must make sure it exists
       ' before using it. Otherwise, it came from our EnumForms list,
       ' and we do not need to check first. Note that we could have
       ' passed in a Flag instead of checking for a literal name.
       If FormName = "MyCustomForm" Then
           ' Use form "MyCustomForm", adding it if necessary.
           ' Set the desired size of the form needed.
           With FormSize   ' Given in thousandths of millimeters
               .cx = 214000   ' width
               .cy = 216000   ' height
           End With
           If GetFormName(PrinterHandle, FormSize, FormName) = 0 Then
               ' Form not found - Either of the next 2 lines will work.
               'FormName = AddNewForm(PrinterHandle, FormSize, "MyCustomForm")
               AddNewForm PrinterHandle, FormSize, "MyCustomForm"
               If GetFormName(PrinterHandle, FormSize, FormName) = 0 Then
                   ClosePrinter (PrinterHandle)
                   SelectForm = FORM_NOT_SELECTED   ' Selection Failed!
                   Exit Function
               Else
                   SelectForm = FORM_ADDED  ' Form Added, Selection succeeded!
               End If
           End If
       End If
       
       ' Change the appropriate member in the DevMode.
       ' In this case, you want to change the form name.
       pDevMode.dmFormName = FormName & Chr(0)  ' Must be NULL terminated!
       ' Set the dmFields bit flag to indicate what you are changing.
       pDevMode.dmFields = DM_FORMNAME
   
       ' Copy your changes back, then update DEVMODE.
       Call CopyMemory(aDevMode(1), pDevMode, Len(pDevMode))
       nSize = DocumentProperties(MyhWnd, PrinterHandle, PrinterName, _
               aDevMode(1), aDevMode(1), DM_IN_BUFFER Or DM_OUT_BUFFER)
   
       nSize = ResetDC(hPrtDC, aDevMode(1))   ' Reset the DEVMODE for the DC.
   
       ' Close the handle when you are finished with it.
       ClosePrinter (PrinterHandle)
       ' Selection Succeeded! But was Form Added?
       If SelectForm <> FORM_ADDED Then SelectForm = FORM_SELECTED  
   Else
       SelectForm = FORM_NOT_SELECTED   ' Selection Failed!
   End If
   End Function
   
   Public Sub PrintTest()
       ' Print two test pages to confirm the page size.
       Printer.Print "Top of Page 1."
       Printer.NewPage
       ' Spacing between lines should reflect the chosen page height.
       Printer.Print "Top of Page 2. - Check the page Height (Length.)"
       Printer.EndDoc
       MsgBox "Check Printer " & Printer.DeviceName, vbInformation, "Done!"
   End Sub
   					

7. Menjalankan proyek. ListBox menunjukkan semua bentuk-bentuk yang printer saat ini mendukung.
8. Klik Command1. Ini menambahkan "MyCustomForm - 214 mm X 216 mm)XXX) "akhir daftar, di mana"XXX"adalah angka yang diberikan untuk bentuk baru.
9. Klik bentuk di ListBox, dan kemudian klik Command2. Ini mencetak halaman uji ke printer saat ini menggunakan formulir dipilih.
10. Klik bentuk kustom baru di ListBox, dan kemudian klik Command3. Anda diminta untuk mengkonfirmasi penghapusan bentuk. Jika Anda mengklik Ya, menghapus bentuk kustom. Jika Anda mencoba ini dengan bentuk standar, ini menimbulkan kesalahan 87 karena hanya bentuk kustom dapat dihapus.

Untuk informasi lebih lanjut tentang fungsi dan jenis yang digunakan dalam artikel ini, lihat MSDN perpustakaan CD atau Win32 SDK Programmer's Guide.

Untuk informasi tambahan mengenai bentuk, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft: