Imprimir etiquetas - Urgente!!!

Veja essa função com PRINTER para impressão em MATRICIAL, utilizando formulário contínuo.

Function RelatEtiquetas()
'    Dim Mensagem As String

        Printer.ScaleMode = vbCentimeters
'        Printer.PaperSize = vbPRPSUser
        Printer.Height = 2.5 * 567           'Altura da etiq. em cm. * 1/2 twip
        Printer.Width = 20.6 * 567          'Largura em cm. * 1/2 twip

    With Printer
        .Orientation = vbPRORPortrait    'Imprime na vertical
        .PrintQuality = vbPRPQDraft      'Imprime com qualidade baixa e maior velocidade
        .Duplex = vbPRDPSimplex          'Imprime na frente do formulário
        .ColorMode = vbPRCMMonochrome    'imprime em preto e branco
'        .Copies = 1                     'Tem impressoara que não suporta este comando
        .Font.Name = "Draft 20cpi"       'Fonte de impressora matricial (LX-300)
        .FontBold = True
    End With

    'comando para impressão do último protocolo cadastrado (uma dupla de etiqueta)
'    Mensagem = InputBox("Informe o nº do Protocolo desejado", "Pesquisa pelo protocolo")

    cSQL = "SELECT TOP 1 * FROM Geral ORDER BY AProtocolo DESC, NProtocolo DESC"

'    Dados.rsGeral.Close
    Dados.rsGeral.Open cSQL, , adOpenForwardOnly, adLockOptimistic

    If Dados.rsGeral.EOF Then
        Dados.rsGeral.Close
        Printer.KillDoc
'        MsgBox "Não existe o protocolo nº " & Mensagem, , "Número Inexistente"
        Exit Function
    End If

    'O objeto Print não aceita with
        Printer.Print Tab(20); "TRIBUNAL DE JUSTIÇA"; Tab(89); "TRIBUNAL DE JUSTIÇA"
        Printer.Print Tab(22); "PROTOCOLO GERAL"; Tab(91); "PROTOCOLO GERAL"
        Printer.Print Tab(16); "Comarca de Mirandópolis-SP"; Tab(85); "Comarca de Mirandópolis-SP"
        Printer.FontBold = False
        Printer.Print Tab(3); "Prot.: "; Dados.rsGeral!NProtocolo; Tab(17); "Data: "; Dados.rsGeral!DataProt; Tab(38); "Hora: "; Dados.rsGeral!Hora; Tab(76); "Prot.: "; Dados.rsGeral!NProtocolo; Tab(90); "Data: "; Dados.rsGeral!DataProt; Tab(111); "Hora: "; Dados.rsGeral!Hora
        Printer.Print Tab(3); "Proc.: "; Dados.rsGeral!NProcesso & " - " & Dados.rsGeral!Cartorio; Tab(76); "Proc.: "; Dados.rsGeral!NProcesso & " - " & Dados.rsGeral!Cartorio
        Printer.Print Tab(3); "Dest.: "; Dados.rsGeral!Destino; Tab(76); "Dest.: "; Dados.rsGeral!Destino

    Dados.rsGeral.Close
'    Printer.KillDoc
    Printer.EndDoc

End Function

Boa sorte e t+