Como imprimir usando tamanhos de página personalizados no Windows NT e Windows 2000

Microsoft Windows 95, Windows 98 e Windows Millennium Edition são flexíveis em tamanhos de página personalizado definido pelo usuário. No entanto, em sistemas que estejam executando o Windows NT e Windows 2000, você deve definir todos os tamanhos de página como um formulário antes de poder usar. Este artigo descreve como imprimir tamanhos de página personalizado no Windows NT e Windows 2000 e inclui um exemplo de código que demonstra como adicionar, selecione e excluir formulários personalizados.

Observação : por causa do comportamento do objeto do Visual Basic 5.0 impressora , as alterações para o DEVMODE que são feitas pela chamada para ResetDC não tem efeito. Assim, o código de exemplo neste artigo não funciona no Visual Basic 5.0.

Este artigo está dividido em seções a seguir:

• 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 de definir ou selecione o tamanho da página

Drivers de impressora armazenam suas configurações padrão em uma estrutura chamada o DEVMODE. Quando você define ou selecione um tamanho de página, quatro membros dessa estrutura podem ser envolvidos:

• dmPaperSize
• dmPaperLength
• dmPaperWidth
• dmFormName

Os membros dmPaperLength e dmPaperWidth contenham valores em todos os sistemas operacionais, mas só podem ser usados para selecionar ou definir um tamanho em sistemas que estejam executando o Windows 95, Windows 98 ou Windows Me. O membro dmFormName só é válido para sistemas que estejam executando o Windows NT ou Windows 2000. O membro dmPaperSize pode ser usado em qualquer sistema operacional de Windows de 32 bits, desde que o valor atribuído a ela corresponde a um tamanho ou o formulário que é definido no sistema.

Portanto, em sistemas que estão executando o Windows 95, Windows 98 ou Windows Me, você pode definir tamanhos de página personalizado por largura e altura (comprimento) ou por um tamanho de papel predefinido. Sistemas baseados no Windows NT ou Windows 2000 só usar formulários definidos para tamanhos de página, que você pode selecionar de uma das duas maneiras: definir dmFormName ou atribuir um valor de "constante" válido para dmPaperSize .

Para usar um tamanho de papel específico no Windows NT ou Windows 2000, você deve definir um formulário para ele. O objeto de impressora do Visual Basic tem PageSize , altura e largura propriedades que expõem os membros dmPaperSize dmPaperLength e dmPaperWidth o DEVMODE. No entanto, o objeto Printer não expõe uma maneira de selecionar um formulário pelo nome, nem possui um método para adicionar um formulário personalizado em tempo de execução. Nós deve usar a interface de programação de aplicativo (API) Win32 para criar um formulário personalizado e/ou selecionar um formulário pelo nome.

Como programaticamente selecionar um formulário

Este artigo usa o processo básico EnumForms para listar todos os formulários que têm suporte para a impressora atual e para verificar a altura e largura de cada formulário. Se o tamanho especificado for encontrado, ele será selecionado. Se não for encontrado, o código adiciona o formulário e, em seguida, seleciona-lo.

Existem três maneiras de programaticamente selecionar um formulário:

• Recupere estrutura DEVMODE da impressora, o conjunto membro dmFormName e usar ResetDC função para definir este formulário como o formulário atual para o dispositivo contexto (DC) da impressora. Quando este formulário é selecionado para o controlador de domínio, ele é selecionado somente para o processo de chamada e não altera a configuração de padrão do driver. Isso não requer quaisquer permissões especiais. Esse método é preferido para aplicativos que alterar configurações da impressora.
• Chame a função SetForm para alterar o formulário padrão para o driver de impressora. Este método requer permissões de acesso completo para o driver. Quando o formulário padrão é alterado, ela afeta cada aplicativo que usa esse driver para imprimir. Se esta for uma impressora de rede, a maioria dos usuários não tem as permissões necessárias para fazer esta chamada.
• Atribua o valor definido pelo sistema para o formulário personalizado para Printer.PaperSize .

Somente o primeiro método é demonstrado no código de exemplo deste artigo; o exemplo não demonstrar a chamada para SetForm ou a atribuição de valor para Printer.PaperSize . O exemplo captura o valor atribuído pelo sistema do novo formulário personalizado, retornando o valor de sua posição ordinal na lista EnumForms retorna. Observe que isso só funciona para formulários personalizados. Formulários predefinidos terem constantes valores atribuídos a eles que não correspondem à sua posição ordinal nesta lista.

Quando você usa a função AddForm para adicionar seu formulário personalizado, o formulário receberá seu próprio número, se estiver disponível, que permanece consistente em todas as impressoras que usam o formulário. Nesse caso, o formulário está definido e dado um valor de "constante" para o sistema atual. Em seguida, você pode atribuir esse valor para Printer.PaperSize para selecioná-lo. No entanto, como a atribuição de número é simplesmente um mais do que o número de formulários que é listado para a impressora atual quando o formulário foi adicionado, esse número não esteja disponível porque um formulário predefinido já está usando esse número. Portanto, não é recomendável que você use esse valor para selecionar um formulário, e esse valor não é demonstrado aqui. Se você usar esta atribuição de número e o valor para ele não estiver disponível, ele será selecionar o formulário errado ou erro em tempo de execução 380 elevar: "Valor de propriedade inválido".

Fontes de formulário e funções

A maioria dos formulários são definidos pelo sistema operacional e estão 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 driver de impressora determinado e aparecem apenas na lista de driver. Outra fonte para formulários é formulários definido personalizados ou definidos pelo usuário, 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 usuário são armazenados no registro.

O exemplo neste artigo usa algumas chamadas de função que são relacionadas a formulários. Resumidamente, as funções principais são:



Embora o exemplo não usa as seguintes funções, ele inclui declara para essas funções:



Ele deve ser enfatizado que algumas dessas funções exigem permissões controle total na impressora. Por isso, as funções SetForm , AddForm e DeleteForm quase nunca funcionam para impressoras que são instaladas como "impressoras de rede". Isso ocorre porque os drivers para impressoras de rede não estão instalados localmente mas residem no servidor da impressora e sua conta de usuário é improvável que direitos de administrador no servidor de impressão. Isso difere em sistemas que estejam executando o Windows 95, Windows 98 ou Windows Me, na qual todos os drivers de impressora (impressoras de rede mesmo) sempre são instalados localmente. No entanto, você pode instalar impressoras de rede como impressoras locais no Windows NT ou Windows 2000 e definir a porta à fila da impressora. Em seguida, você pode usar essas funções para fazer alterações sem afetar outros usuários compartilham a impressora.

Etapas para adicionar um driver de impressora local para uma impressora de rede

1. No menu Iniciar , aponte para configurações e, em seguida, clique em impressoras . Clique duas vezes em Adicionar impressora para iniciar o Assistente para adicionar impressora.
2. Quando solicitado, certifique-se de que você clique em impressora local ou em Meu computador e não a impressora de rede . Embora você irá se conecta a uma impressora de rede, você deseja usar um driver no meu computador. Clique em Avançar para continuar.
3. No Windows NT, clique em Adicionar porta . No Windows 2000, clique em criar uma nova porta .
4. Na caixa de listagem drop-down, clique em Porta Local . No Windows NT, clique em Nova porta . No Windows 2000, clique em Avançar e é solicitado para um Nome de porta .
5. Digite o local da impressora na rede. Por exemplo:
   \\printserver\printername
   onde você usar o nome do caminho exato para a impressora.
6. Clique em OK e conclua o assistente.

Se você alterar as propriedades da impressora para a impressora ativa, você ainda afetam todos os aplicativos que usam essa impressora, mas somente para o sistema local.

importante Quando você usar tamanhos de página personalizado, o comportamento difere entre Jet de tinta ou laser impressoras e matricial ou impressoras de impacto. Obviamente, nenhuma impressora aceita um tamanho de página mais largo do que puder acomodar fisicamente. Mas impressoras que usam papel de alimentação contínua podem ser flexíveis em tamanhos de página porque eles imprimem uma linha por vez. Como alternativa, laser e Ink Jet impressoras imprimem uma página por vez. Assim, por exemplo, quando você imprime em uma impressora matricial (que usa papel de alimentação contínua), você pode ver facilmente o comprimento da página durante um avanço porque a impressora avança para o local onde ele espera que a parte superior da próxima página para iniciar, independentemente do tamanho físico do papel que está usando. No Jet de tinta e laser impressoras, um formulário alimentação sempre ejeta uma página completa física independentemente do tamanho de página espera. Além disso, na maioria das impressoras laser, a exibição lê "Carga personalizado" (ou semelhante) quando você pedir a impressora para imprimir em um tamanho de página definido pelo usuário.

Exemplo passo a passo

1. Defina uma impressora local como a impressora padrão. Para fazer isso, execute as seguintes etapas:
   1. No menu Iniciar , aponte para configurações e, em seguida, clique em impressoras .
   2. Clique com o botão direito do mouse no ícone uma impressora local e clique em Definir como padrão .
2. Inicie um novo projeto Standard EXE no Visual Basic. O Form1 é criado por padrão.
3. Adicione três CommandButtons e um controle ListBox ao Form1.
4. Cole o código a seguir 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. A partir do menu Project , adicione um novo módulo, Module1.
6. Cole o seguinte código 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 projeto. O ListBox mostra todos os formulários que a impressora atual oferece suporte.
8. Clique em Command1 . Isso adiciona "MyCustomForm - 214 X 216 mm ( xxx )" ao final da lista, onde " xxx " é o número atribuído ao novo formulário.
9. Clique em um formulário na caixa de listagem e, em seguida, clique em Command2 . Isso imprime uma página de teste para a impressora atual usando o formulário selecionado.
10. Clique em novo formulário personalizado na caixa de listagem e, em seguida, clique em Command3 . É solicitado a confirmar a exclusão do formulário. Se você clicar em Sim , ele remove o formulário personalizado. Se você tentar fazer isso com um formulário predefinido, gera erro 87 porque somente a formulários personalizados podem ser excluídos.

Para obter mais informações sobre funções e tipos que são usados neste artigo, consulte o CD do MSDN Library ou Guide do programador do Win32 SDK.

Para obter informações adicionais em formulários, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft: