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

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 282474
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
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:

Mais Informações

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:

FunçãoDescrição
EnumForms Retorna informações sobre todos os formulários que têm suporte para a impressora atual.
AddForm Adiciona um formulário personalizado para o sistema. Os dados nesse formulário são armazenados no registro. Portanto, os formulários personalizados estão disponíveis para todas as impressoras, não apenas a impressora foi atual quando o formulário foi adicionado. O valor numérico que o sistema atribui a este formulário é simplesmente um número maior que o número de formulários EnumForms retorna para a impressora atual. Você deve ter direitos totais para o driver para chamar esta função. Se você não pode adicionar manualmente um formulário, essa chamada de função também falhará para você. Por esse motivo, normalmente você não pode usar esta função em impressoras de rede.
DeleteForm Remove um formulário personalizado. No entanto, essa função não exclui os formulários padrão que o sistema operacional define e retorna o código de erro 87 se isso é tentado. Essa função também requer os mesmos direitos AddForm .


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

FunçãoDescrição
GetForm Recupera informações sobre um formulário específico.
SetForm Define as informações do formulário padrão para a impressora especificada. Esta função exige direitos totais, assim como alterar qualquer impressora configuração do driver.


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 ExplicitPrivate Sub Command1_Click()Dim FormName As StringFormName = "MyCustomForm"   ' Use special, user-defined form.UseForm FormNameEnd SubPrivate 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 FormNameExit SubListBoxERR:MsgBox "Select a printer from the ListBox before using this option.", _   vbExclamationEnd SubPrivate Sub Command3_Click()Dim RetVal As LongDim PrinterHandle As Long   ' Handle to printerDim PrinterName As StringDim FormName As StringDim Continue As Long' Delete form that is selected in ListBox.PrinterName = Printer.DeviceName  ' Current printerIf 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 IfExit SubListBoxERR:MsgBox "Select a printer from the ListBox before using this option.", _   vbExclamationClosePrinter (PrinterHandle)End SubPrivate Sub Form_Load()Dim NumForms As Long, I As LongDim FI1 As FORM_INFO_1Dim aFI1() As FORM_INFO_1           ' Working FI1 arrayDim Temp() As Byte                  ' Temp FI1 arrayDim BytesNeeded As LongDim PrinterName As String           ' Current printerDim PrinterHandle As Long           ' Handle to printerDim FormItem As String              ' For ListBoxDim RetVal As LongDim FormSize As SIZEL               ' Size of desired formPrinterName = Printer.DeviceName    ' Current printerIf 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 IfEnd SubPrivate Sub UseForm(FormName As String)Dim RetVal As IntegerRetVal = 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 SelectEnd Sub					
  5. A partir do menu Project , adicione um novo módulo, Module1.
  6. Cole o seguinte código no Module1:
    Option ExplicitPublic 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 LongPublic Declare Function AddForm Lib "winspool.drv" Alias "AddFormA" _    (ByVal hPrinter As Long, ByVal Level As Long, pForm As Byte) As LongPublic 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 LongPublic Declare Function ClosePrinter Lib "winspool.drv" _    (ByVal hPrinter As Long) As LongPublic 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 LongPublic Declare Function ResetDC Lib "gdi32" Alias "ResetDCA" _    (ByVal hdc As Long, lpInitData As Any) As LongPublic 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 DEVMODEPublic Const CCHFORMNAME = 32Public Const CCHDEVICENAME = 32Public Const DM_FORMNAME As Long = &H10000Public Const DM_ORIENTATION = &H1&' Constants for PRINTER_DEFAULTS.DesiredAccessPublic Const PRINTER_ACCESS_ADMINISTER = &H4Public Const PRINTER_ACCESS_USE = &H8Public Const STANDARD_RIGHTS_REQUIRED = &HF0000Public Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _  PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)  ' Constants for DocumentProperties() callPublic Const DM_MODIFY = 8Public Const DM_IN_BUFFER = DM_MODIFYPublic Const DM_COPY = 2Public Const DM_OUT_BUFFER = DM_COPY' Custom constants for this sample's SelectForm functionPublic Const FORM_NOT_SELECTED = 0Public Const FORM_SELECTED = 1Public Const FORM_ADDED = 2Public Type RECTL        Left As Long        Top As Long        Right As Long        Bottom As LongEnd TypePublic Type SIZEL        cx As Long        cy As LongEnd TypePublic 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  ' ACLEnd 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 RECTLEnd TypePublic Type sFORM_INFO_1        Flags As Long        pName As String        Size As SIZEL        ImageableArea As RECTLEnd TypePublic 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 LongEnd TypePublic Type PRINTER_DEFAULTS        pDatatype As String        pDevMode As Long    ' DEVMODE        DesiredAccess As LongEnd TypePublic 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 LongEnd TypePublic Function GetFormName(ByVal PrinterHandle As Long, _                          FormSize As SIZEL, FormName As String) As IntegerDim NumForms As Long, I As LongDim FI1 As FORM_INFO_1Dim aFI1() As FORM_INFO_1           ' Working FI1 arrayDim Temp() As Byte                  ' Temp FI1 arrayDim FormIndex As IntegerDim BytesNeeded As LongDim RetVal As LongFormName = vbNullStringFormIndex = 0ReDim 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 WithNext IGetFormName = FormIndex  ' Returns non-zero when form is found.End FunctionPublic Function AddNewForm(PrinterHandle As Long, FormSize As SIZEL, _                           FormName As String) As StringDim FI1 As sFORM_INFO_1Dim aFI1() As ByteDim RetVal As LongWith 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 WithEnd WithReDim 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.pNameEnd IfEnd FunctionPublic Function PtrCtoVbString(ByVal Add As Long) As StringDim sTemp As String * 512, x As Longx = lstrcpy(sTemp, ByVal Add)If (InStr(1, sTemp, Chr(0)) = 0) Then     PtrCtoVbString = ""Else     PtrCtoVbString = Left(sTemp, InStr(1, sTemp, Chr(0)) - 1)End IfEnd FunctionPublic Function SelectForm(FormName As String, ByVal MyhWnd As Long) _    As IntegerDim nSize As Long           ' Size of DEVMODEDim pDevMode As DEVMODEDim PrinterHandle As Long   ' Handle to printerDim hPrtDC As Long          ' Handle to Printer DCDim PrinterName As StringDim aDevMode() As Byte      ' Working DEVMODEDim FormSize As SIZELPrinterName = Printer.DeviceName  ' Current printerhPrtDC = Printer.hdc              ' hDC for current PrinterSelectForm = 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 IfEnd FunctionPublic 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.
Referências
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:
157172Como criar formulários personalizados no Windows NT 4.0 e no Windows 2000
definido pelo usuário

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 282474 - Última Revisão: 12/05/2015 23:20:45 - Revisão: 1.2

Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0

  • kbnosurvey kbarchive kbmt kbapi kbhowto kbprint kbsample kbspooler KB282474 KbMtpt
Comentários