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+
