Como imprimir com tamanhos de página personalizado no Windows NT e Windows 2000

Microsoft Windows 95, Windows 98 e Windows Millennium Edition (Me) são flexíveis em tamanhos de página personalizado, definido pelo utilizador. No entanto, em sistemas que estão a executar o Windows NT e Windows 2000, tem de definir todos os tamanhos de página como um formulário antes de poder utilizar. Este artigo descreve como imprimir tamanhos de página personalizado no Windows NT e Windows 2000 e inclui um exemplo de código demonstra como adicionar, seleccione e elimine os formulários personalizados.

Nota : devido ao comportamento do objecto de Visual Basic 5.0 impressora , as alterações de DEVMODE efectuadas pela chamada a ResetDC não tem efeito. Assim, o código de exemplo neste artigo não funciona a partir do Visual Basic 5.0.

Este artigo está dividido nas seguintes secções:

• 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

Membros DEVMODE que definir ou seleccione o tamanho da página

Controladores de impressora armazenam as respectivas predefinições numa estrutura de chamada de DEVMODE. Quando definir ou seleccione um tamanho de página, poderão ser envolvidos quatro membros desta estrutura:

• dmPaperSize
• dmPaperLength
• dmPaperWidth
• dmFormName

Os membros dmPaperLength e dmPaperWidth contêm valores em todos os sistemas operativos, mas só podem ser utilizadas para seleccionar ou definir um tamanho em sistemas que estão a executar o Windows 95, Windows 98 ou Windows Me. O membro dmFormName só é válido para os sistemas que executem o Windows NT ou Windows 2000. O membro dmPaperSize pode ser utilizado em qualquer sistema operativo de Windows de 32 bits, desde que o valor atribuído à mesma corresponde a um tamanho ou formulário que está definido nesse sistema.

Assim, em sistemas que estão a executar o Windows 95, Windows 98 ou Windows Me, é possível definir tamanhos de página personalizada (comprimento) de altura e largura ou um tamanho de papel predefinidos. Sistemas baseados no Windows NT ou baseado no Windows 2000 utilizam apenas formulários definidos para tamanhos de página, pode seleccionar uma de duas formas: definir dmFormName ou atribuir um valor válido "constante" dmPaperSize .

Para utilizar um tamanho de papel específica no Windows NT ou Windows 2000, tem de definir um formulário para o mesmo. O objecto de impressora do Visual Basic tem PageSize , altura e largura propriedades que expõem os membros dmPaperSize dmPaperLength e dmPaperWidth de DEVMODE. No entanto, o objecto de impressora não expõe uma forma para seleccionar um formulário por nome, nem tem um método para adicionar um formulário personalizado ao tempo de execução. Pelo nome tem de utilizar a interface de programação de aplicações (API) Win32 para criar um formulário personalizado e/ou seleccionar um formulário.

Como seleccionar programaticamente um formulário

Este artigo utiliza o processo de básico EnumForms para listar todos os formulários que são suportados para a impressora actual e para verificar a altura e largura de cada formulário. Se for encontrado o tamanho especificado, é seleccionada. Se não for encontrado, o código adiciona o formulário e, em seguida, selecciona a mesma.

Existem três formas de seleccionar programaticamente um formulário:

• Obter estrutura DEVMODE da impressora, definir o membro dmFormName e utilizar ResetDC função para definir este formulário como o formulário actual para o dispositivo de contexto (DC) da impressora. Quando este formulário é seleccionado para o CD, só está seleccionada para o processo de chamada e não altera a predefinição do controlador. Não requer quaisquer permissões especiais. Este método é preferido para aplicações que altere as definições de uma impressora.
• Chame a função SetForm para alterar o formulário predefinido para o controlador de impressora. Este método requer permissões de acesso completo para o controlador. Quando o formulário predefinido for alterado, afecta todas as aplicações que utiliza este controlador para imprimir. Se se tratar de uma impressora de rede, a maioria dos utilizadores não tem as permissões necessárias para efectuar esta chamada.
• Atribua o valor definido pelo sistema para o formulário personalizado a Printer.PaperSize .

Apenas o primeiro método é demonstrado no código de exemplo neste artigo, o exemplo não demonstram a chamada para SetForm ou a atribuição de valor Printer.PaperSize . O exemplo de captura o valor atribuído por sistema do novo formulário personalizado, devolvendo o valor da posição ordinal na lista que EnumForms devolve. Tenha em atenção que isto funciona apenas para formulários personalizados. Formulários predefinidos têm valores constantes atribuídos que não correspondem a respectiva posição ordinal nesta lista.

Quando utiliza a função AddForm para adicionar o formulário personalizado, o formulário é atribuído número próprio, se disponível, que permanece consistente em todas as impressoras que utilizam o formulário. Neste caso, o formulário está definido e considerando um valor "constante" para o sistema actual. Em seguida, é possível atribuir este valor para Printer.PaperSize para seleccioná-la. No entanto, uma vez que a atribuição de números é simplesmente um mais do que o número de formulários que é listado para a impressora actual quando o formulário foi adicionado, este número pode não estar disponível uma vez que um formulário predefinido já está a utilizar esse número. Por conseguinte, não é recomendável que utilize este valor para seleccionar um formulário e este valor não é demonstrado aqui. Se utilizar esta atribuição de números e o valor não estiver disponível, irá seleccione o formulário errado ou aumentar run-time error 380: "Valor de propriedade inválido."

Origens de formulário e funções

A maior parte dos formulários são definidos pelo sistema operativo e disponíveis para todas as impressoras locais. No entanto, os formulários para impressoras de rede são definidos no servidor de impressão. Algumas formas podem ser definidas especificamente para um controlador de impressora especificado e só aparecem na lista para esse controlador. Outra fonte de formulários é formulários personalizados definidos ou definidos pelo utilizador, que podem ser criados manualmente ou através de código e estão disponíveis para todas as impressoras locais no sistema. Formulários específicas da impressora e definidas pelo utilizador são armazenados no registo.

O exemplo neste artigo utiliza algumas chamadas de função que estão relacionados com formulários. Resumidamente, as funções chaves são:



Embora o exemplo não utilizar as seguintes funções, inclui Declares para estas funções:



Tem de ser realçado que algumas destas funções requerem permissões Controlo total na impressora. Por isso, as funções SetForm AddForm e DeleteForm quase nunca trabalhar para impressoras que são instaladas como "impressoras de rede." Isto acontece porque os controladores para impressoras de rede não estão instalados localmente mas residem num servidor de impressão e a conta de utilizador é improvável com direitos de administrador no servidor de impressão. Isto difere em sistemas que executem o Windows 95, Windows 98 ou Windows Me, na qual todos os controladores de impressora (impressoras de rede mesmo) são sempre instalados localmente. No entanto, pode instalar impressoras de rede como impressoras locais no Windows NT ou Windows 2000 e defina a porta para a fila de impressão. Em seguida, pode utilizar estas funções para efectuar alterações sem afectar outros utilizadores que partilham a impressora.

Passos para adicionar um controlador de impressora local para uma impressora de rede

1. No menu Iniciar , aponte para definições e, em seguida, clique em impressoras . Faça duplo clique em Adicionar impressora para iniciar o Assistente para adicionar impressoras.
2. Quando lhe for pedido, certifique-se de que clica em impressora local ou Meu computador e não a impressora de rede . Ainda que vai ligar uma impressora de rede, que pretende utilizar um controlador no meu computador. Clique em seguinte para continuar.
3. No Windows NT, clique em Adicionar porta . No Windows 2000, clique em criar uma nova porta .
4. Na caixa de listagem pendente, clique em Porta Local . No Windows NT, clique em Nova porta . No Windows 2000, clique em seguinte e, lhe for pedido um Nome de porta .
5. Escreva a localização da impressora na rede. Por exemplo:
   \\printserver\printername
   onde utilizar o nome exacto do caminho para a impressora.
6. Clique em OK e conclua o assistente.

Se alterar as propriedades de impressora para impressora activa, ainda afecta todas as aplicações que utilizam essa impressora, mas apenas para o sistema local.

importante Quando utiliza tamanhos de página personalizado, o comportamento difere entre laser ou tinta Jet matriz de pontos e de impressoras ou impressoras de impacto. Obviamente, nenhuma impressora aceita um tamanho de página mais largo do que pode suportar fisicamente. Mas podem ser flexíveis em tamanhos de página impressoras que utilizam papel Alimentação contínua porque que imprimem uma linha ao mesmo tempo. Como alternativa, laser e tinta Jet impressoras imprimem uma página ao mesmo tempo. Assim, por exemplo, quando imprimir para uma impressora de matriz de pontos (que utiliza alimentação de papel contínuo), pode facilmente ver o comprimento da página durante um avanço porque a impressora avança para o local onde espera que o início da página seguinte para iniciar, independentemente do tamanho físico do papel que está a utilizar. Laser e tinta Jet impressoras, um avanço sempre ejecta uma página completa física independentemente do tamanho da página que espera. Além disso, nas impressoras a laser a maior parte dos, a apresentação lê "Personalizar O" (ou outra semelhante) quando pedir a impressora para imprimir num tamanho de página definido pelo utilizador.

Exemplo passo a passo

1. Defina uma impressora local como a impressora predefinida. Para o fazer, siga estes passos:
   1. No menu Iniciar , aponte para definições e, em seguida, clique em impressoras .
   2. Clique com o botão direito do rato no ícone uma impressora local e, em seguida, clique em Predefinir .
2. Inicie um novo projecto EXE padrão no Visual Basic. É criado o Form1 por predefinição.
3. Adicione três CommandButtons e um controlo ListBox ao Form1.
4. Cole o seguinte código no módulo do 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. No menu Project , adicione um módulo novo, Módulo1.
6. Cole o código seguinte no 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. Execute o projecto. Caixa de listagem mostra todos os formulários que suporta a impressora actual.
8. Clique em Command1 . Esta acção adiciona "MyCustomForm - 214 mm X 216 mm ( xxx )" no fim da lista, em que " xxx " é o número que é atribuído o novo formulário.
9. Clique num formulário na caixa de listagem e, em seguida, clique em Command2 . Esta opção imprime uma página de teste para a impressora actual utilizando o formulário seleccionado.
10. Clique no novo formulário personalizado na caixa de listagem e, em seguida, clique em Command3 . É-lhe pedido para confirmar a eliminação do formulário. Se clicar em Sim , remove o formulário personalizado. Se este tentar com um formulário predefinido, eleva erro 87 porque podem ser eliminados apenas formulários personalizados.

Para obter mais informações sobre as funções e tipos que são utilizados neste artigo, consulte o CD da MSDN Library ou guia para programadores de Win32 SDK.

Para obter informações adicionais nos formulários, clique no número de artigo existente abaixo para visualizar o artigo na base de dados de conhecimento da Microsoft: