Nasýl yapýlýr: Windows NT ve Windows 2000'de özel sayfa boyutlarý kullanarak yazdýrma

Microsoft Windows 95, Windows 98 ve Windows Millennium Edition (Me), özel, kullanýcý tanýmlý bir sayfa boyutlarýna esnektir. Kullanabilmeniz için önce ancak, Windows NT ve Windows 2000 çalýþan sistemlerde, tüm sayfa boyutlarý bir form olarak tanýmlamalýsýnýz. Bu makalede, Windows NT ve Windows 2000'de özel sayfa boyutu yazdýrýlacak açýklar ve nasýl ekleyin, seçin ve özel formlarý Sil'i gösteren bir kod örneðini içerir.

Not: Visual Basic 5.0 Yazýcý nesnesinin davranýþ nedeniyle, the DEVMODE ResetDC çaðrýsýyla yapýlan deðiþikliklerin etkisi vardýr. Bu nedenle, bu makaledeki örnek kod, Visual Basic 5. 0 ' çalýþmaz.

Bu makalede, aþaðýdaki bölümlere ayrýlmýþtýr:

• DEVMODE Members That Define or Select Page Size
• How to Programmatically Select a Form
• Form Sources and Functions
• Steps to Add a Local Print Driver for a Network Printer
• Step-by-Step Example

DEVMODE üyeler, tanýmlama veya sayfa boyutu Seç

Yazýcý sürücüleri, varsayýlan ayarlarýna DEVMODE adlý bir yapýda depolar. Tanýmlamak veya bir sayfa boyutu seçin, bu yapýyý dört üyeleri söz konusu olabilir:

• dmPaperSize
• dmPaperLength
• dmPaperWidth
• dmFormName

Deðeri tüm iþletim sistemlerinde dmPaperLength ve dmPaperWidth üye içerir, ancak bunlar yalnýzca seçin ya da Windows 95, Windows 98 veya Windows Me çalýþtýran sistemlerde bir boyutu tanýmlamak için kullanýlabilir DmFormName üyeye, yalnýzca Windows NT veya Windows 2000 çalýþtýran sistemler için geçerlidir. Bir boyutu veya bu sistemde tanýmlý bir form için atanan deðeri karþýlýk gelen sürece dmPaperSize üye tüm 32-bit Windows iþletim sisteminde kullanýlabilir.

Bu nedenle, Windows 95, Windows 98 veya Windows Me çalýþtýran sistemlerde, özel sayfa boyutlarý (uzunluk) yüksekliði ve geniþliði veya önceden tanýmlý kaðýt boyutu tanýmlayabilirsiniz. Windows NT tabanlý veya Windows 2000 tabanlý sistemleri tanýmlý formlar için iki yöntemden birini seçebileceðiniz sayfa boyutlarý kullanmalýsýnýz: dmFormName ayarlamak veya dmPaperSize için "sabit" geçerli bir deðer atayýn.

Belirli bir kaðýt boyutu, Windows NT ya da Windows 2000'de kullanmak için form için tanýmlamalýsýnýz. Visual Basic Yazýcý nesnesinin PageSize, Yükseklik ve Geniþlik özelliklerini DEVMODE dmPaperSizedmPaperLength ve dmPaperWidth üyeleri bulaþmasýna neden vardýr. Ancak, Yazýcý nesnesi bir form adý seçmek için bir yol göstermiyor veya, çalýþtýrma sýrasýnda bir özel form eklemek için bir yöntem yoktur. Biz Win32 uygulama programlama arabirimi (API) özel bir form oluþturmak ve/veya bir form seçin adý kullanmanýz gerekir.

Nasýl yapýlýr: program aracýlýðýyla Form Seç

Bu makalede, EnumForms temel iþlem geçerli yazýcý desteklenen tüm formlarýný listeleyin ve her form geniþliði ve yüksekliði denetlemek için kullanýr. Belirtilen boyut bulunursa, seçilir. Bulunamazsa, bu kod, form ekler ve bunu seçer.

Bir formu programsal olarak seçilecek üç yolu vardýr:

• Yazýcýnýn DEVMODE yapýsýnýn dmFormName üye kümesi ve kullaným ResetDC iþlev bu formu, aygýt içerik (DC için) yazýcýnýn geçerli form ayarlamak için alýn. Bu form için etki alaný DENETLEYICISI seçildiðinde, arama iþlemi için yalnýzca seçili ve sürücünün varsayýlan ayarý deðiþtirebilirsiniz. Bu, herhangi bir özel izin gerekmez. Bu yazýcýnýn ayarlarýný deðiþtirmek ve uygulamalar için tercih edilen yöntemdir.
• Yazýcý sürücüsünün varsayýlan formu deðiþtirmek için SetForm iþlevini çaðýrýn. Bu yöntem, sürücü için tam eriþim izinleri gerektirir. Varsayýlan form deðiþtirildiðinde yazdýrmak için bu sürücüyü kullanan her uygulama etkiler. Bu að yazýcýsý, çoðu kullanýcý, bu çaðrýyý yapmak için gerekli izinlere sahip deðilsiniz.
• Özel form için <a2>sistem tanýmlý</a2> deðeri için Printer.PaperSize atayýn.

Yalnýzca ilk yöntem, bu makalenin örnek kodda gösterilmektedir; örnek SetForm çaðrýsý veya Printer.PaperSize deðer atamaya gösteren deðil. Örnek sistem tarafýndan atanan deðeri yeni bir özel formu, sýralý konumunu EnumForms döndüren listedeki deðeri döndürerek yakalar. Bu yalnýzca özel formlar için çalýþtýðýný unutmayýn. Önceden tanýmlý formlar, bu listedeki sýra konumlarýna karþýlýk gelmeyen atanmýþ sabit deðerlere sahip.

Özel formunuza eklemek için AddForm iþlevini kullandýðýnýzda, form kendi, varsa, formu kullanan tüm yazýcýlar üzerinde tutarlý kalýr verilir. Bu durumda, formun tanýmlanan ve geçerli sistemi "sabit" deðeri verilir. Sonra bu deðer seçmek için Printer.PaperSize için atayabilirsiniz. Numarasý atamasý, yalnýzca bir birden fazla form eklendiðinde, geçerli bir yazýcý için listelenen formlarý sayýsýný olduðundan, önceden tanýmlanmýþ bir form zaten bu numarayý kullanan ancak, bu numarayý kullanýlamayabilir. Bu nedenle, bu form seçmek için bu deðeri kullanýn ve bu deðer burada gösterilen önerilmez. Bu numara atamasý'ný kullanýn ve bu deðeri kullanýlamaz, bu yanlýþ formu seçin veya çalýþma zamaný hatasý 380 yükseltmek: "Geçersiz özellik deðeri"

Form kaynaklarý ve iþlevler

Çoðu form, iþletim sistemi tarafýndan tanýmlanýr ve tüm yerel yazýcýlarý kullanýlabilir. Bununla birlikte, formlar að yazýcýlarý için yazýcý sunucusunda tanýmlanýr. Bazý formlarda, özel olarak belirli bir yazýcý sürücüsü için tanýmlanan ve yalnýzca bu sürücü için liste görüntülenir. Baþka bir form için el ile veya kod aracýlýðýyla bu güvenlik açýðýndan oluþturulabilir ve bu sistemdeki tüm yerel yazýcýlar kullanýlabilir özel tanýmlanmýþ veya kullanýcý tanýmlý formlarý kaynaðýdýr. Yazýcýya özgü ve kullanýcý tanýmlý biçimler, kayýt defterinde depolanýr.

Bu makaledeki örnek formlarýyla iliþkili birkaç iþlev çaðrýsý kullanýr. Kýsaca, önemli iþlevler þunlardýr:



Örnek aþaðýdaki iþlevleri kullanabilirsiniz, ancak, bu iþlevler için Declares içermez:



Bu yazýcý üzerinde Tam Denetim izinleri gerektiren bu iþlevlerden bazýlarý emphasized gerekir. Bu nedenle, SetFormAddForm ve DeleteForm iþlevleri hemen hemen her zaman "að yazýcýlarýna." yüklü olan yazýcýlar için çalýþma Bunun nedeni, að yazýcýlarýna sürücüleri yerel olarak yüklenmemiþ, ancak yazýcý sunucusunda bulunur ve kullanýcý hesabýnýzýn, yazýcý sunucusunda yönetici haklarýna sahip düþüktür olmasýdýr. Bu, Windows 95, Windows 98 veya Windows, tüm yazýcý sürücülerini (hatta bir að yazýcýlarýna) her zaman yerel olarak yüklenme Me sistemlerinden farklýdýr. Ancak, Windows NT veya Windows 2000 yerel yazýcýlar, að yazýcýlarý yüklemek ve yazýcý sýrasý için baðlantý noktasý ayarlayýn. Daha sonra bu iþlevler, yazýcýyý paylaþan diðer kullanýcýlarý etkilemeden, deðiþiklik yapmak için kullanabilirsiniz.

Bir að yazýcýsý için yerel bir yazýcý sürücüsü ekleme adýmlarý

1. Baþlat menüsünde Ayarlar ' ýn üzerine gelin ve sonra Yazýcýlar ' ý týklatýn. Yazýcý Ekleme Sihirbazý'ný baþlatmak için Yazýcý Ekle'yi çift týklatýn.
2. Istendiðinde, yerel yazýcý veya Bilgisayarým ve að yazýcýsý NOT týklattýðýnýzdan emin olun. Að yazýcýsý baðlantý kuracak olsa da, bir sürücü Bilgisayarým üzerinde kullanmak istediðiniz. Devam etmek için ileri ' yi týklatýn.
3. Windows NT'DE, Baðlantý Noktasý Ekle'yi týklatýn. Windows 2000'de, Yeni baðlantý noktasý oluþtur) týklatýn.
4. Aþaðý açýlan liste kutusunda, Yerel baðlantý noktasý ' ný týklatýn. Windows NT'DE Yeni baðlantý noktasý ' ný týklatýn. Windows 2000'de, ileri ' yi týklatýn ve Baðlantý noktasý adý için istemde bulunulur.
5. Yazýcýnýn konumunu, að üzerinde yazýn. Örneðin,:
   \\printserver\printername
   Burada yazýcýnýn tam yol adý kullanýn.
6. Tamam ' ý týklatýn ve sihirbazý tamamlayýn.

Etkin yazýcý için yazýcý özelliklerini deðiþtirmek, yalnýzca yerel sistem için yazýcýyý kullanan tüm uygulamalar yine de etkiler.

ÖNEMLI Özel sayfa boyutlarý'ný kullandýðýnýzda, lazer veya mürekkep Jet davranýþ farklý yazýcýlar ve <a2>dot matris</a2> veya <a4>vuruþlu yazýcýlar. Kuþkusuz, yazýcý, fiziksel olarak barýndýrabileceði daha geniþ bir sayfa boyutunu kabul eder. Ancak bir kerede bir satýr yazdýrma sürekli besleme kaðýt kullanan yazýcýlarý sayfa boyutlarýna esnek olabilir. Bunun yerine Lazer ve mürekkep Jet yazýcýlarý bir kerede bir sayfa yazdýr. (Sürekli besleme kaðýt kullanýr) bir nokta matris yazýcýya yazdýrýrken, bu nedenle, örneðin, kolayca sayfa uzunluðu bir form, yazýcýnýn yeri kullanan, kaðýdýn fiziksel boyutuna bakmaksýzýn baþlatmaya sonraki sayfanýn baþýna yeniden umuyor yere ilerler için Özet akýþý sýrasýnda görebilirsiniz. Lazer ve mürekkep Jet yazýcýlar, tam fiziksel bir sayfa, bekleyen sayfa boyutu ne olursa olsun her zaman Özet akýþý form çýkarýr. Ayrýca, çoðu lazer yazýcýlarda, görüntü "Yük özel" okur (veya benzer) olduðunda, bir kullanýcý tarafýndan tanýmlanan bir sayfa boyutu yazdýrýlacak yazýcý isteyin.

Adým adým örnek

1. Yerel bir yazýcýyý varsayýlan yazýcý olarak ayarlayýn. Bunu yapmak için þu adýmlarý izleyin:
   1. Baþlat menüsünde Ayarlar ' ýn üzerine gelin ve sonra Yazýcýlar ' ý týklatýn.
   2. Yerel yazýcý simgesini sað týklatýn ve sonra da <a2>Varsayýlan olarak ayarla</a2>'ý týklatýn.
2. Yeni bir proje standart exe DOSYASý, Visual Basic'te baþlatýn. Varsayýlan olarak, Form1 oluþturulur.
3. Form1'e, üç CommandButtons ve bir ListBox denetimine ekleyin.
4. Form1 modüle aþaðýdaki kodu yapýþtýrýn:

   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. Proje menüsünden Module1 adlý yeni bir modül ekleyin.
6. Module1 aþaðýdaki kodu yapýþtýrýn:

   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. Projeyi çalýþtýrýn. Liste, tüm geçerli yazýcý destekleyen formlarý gösterir.
8. Command1</a1> seçeneðini týklatýn. Bu ekler "MyCustomForm - 214 mm X 216 mm (xxx)" "xxx" olduðu için yeni bir form atadýðý numarayý listenin sonuna.
9. Bir liste formu týklatýn ve sonra da Command2</a1>'ý týklatýn. Bu, seçili formunu kullanarak geçerli bir yazýcý için bir sýnama sayfasý yazdýrýr.
10. Liste kutusuna yeni bir özel formu týklatýn ve sonra da Command3</a1>'ý týklatýn. Formun silme iþlemini onaylamanýz istenir. Evet ' i týklatýrsanýz, özel form kaldýrýr. Bu önceden tanýmlanmýþ bir formla denerseniz, yalnýzca özel formlar silinebilir çünkü hata 87 yükseltir.

Bu makalede kullanýlan türleri ve iþlevleri hakkýnda daha fazla bilgi için MSDN Kitaplýðý CD'SINI veya Win32 SDK Programmer's Guide bakýn.

Formlar hakkýnda ek bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn: