eai galera, outro problema com o print...
montei o codigo abaixa, imprimi certinho...
====================================================
Dim vgimp As Printer
For Each vgimp In Printers
Set Printer = vgimp
If vgimp.DeviceName = "Generic / Text Only" Then Exit For
'If vgimp.DeviceName = "pdfFactory Pro" Then Exit For
Next
Val1 = "" 'tipo do documento
Val2 = "" 'razao social
Val3 = "" 'cnpj
val4 = "" 'endereço
Val5 = "" 'cidade e estado
Val6 = "" 'telefone
Val7 = "" 'data do pagamento
Val8 = "" 'horario do pagamento
Val9 = "" 'operador
Val10 = "0" 'subtotal
Val11 = "0" 'descontos
Val12 = "0" 'total pago
Val13 = "" 'historico do pagamento
Val14 = "" 'data do sistema
Val15 = "" 'horario do sistema
Val16 = "" 'pega o inscrição do documento
'CARREGA AS VARIAVEIS COM OS DADOS DA EMPRESA
Val2 = SISAD.Label15.Caption
Val3 = SISAD.Label7(1).Caption
val4 = SISAD.Label1.Caption
Val5 = SISAD.Label3.Caption
Val6 = SISAD.Label7(2).Caption
'CARREGA AS VARIAVEIS COM OS DADOS DO PAGAMENTO
Val7 = Text1.Text
Val8 = Text6.Text
Val9 = Label9.Caption
Val10 = Format(Text39.Text, "###,###,###,##0.00")
Val11 = Format(Text38.Text, "###,###,###,##0.00")
Val12 = Format(Text23.Text, "###,###,###,##0.00")
Val13 = Text26.Text
Val14 = Date
Val15 = Time
Val16 = Text2.Text
'Agora começa a impressão do seu conteúdo
Printer.Print Tab(4); String(44, "=") 'Uma linha com 80 caracteres "_"
Printer.Print Tab(3); " COMPROVANTE DE PAGAMENTO"
Printer.Print Tab(3); String(44, "=") 'Uma linha com 80 caracteres "_"
Printer.Print Tab(3); "" 'Uma linha com 80 caracteres "_"
Val1 = ""
Select Case Label2.Caption
Case "1"
Val1 = "IPTU - Imp. Predial e Territorial Urbano"
Case "2"
Val1 = "DAM - Doc. de Arrecadação Municipal"
Case "3"
Val1 = "DUA - Doc. Único de Arrecadação"
End Select
Printer.Print Tab(2); TiraAcento(Val1)
Printer.Print Tab(3); String(44, "-") 'Uma linha com 80 caracteres "_"
Printer.Print Tab(2); TiraAcento(Val2)
Printer.Print Tab(3); Val3
Printer.Print Tab(2); TiraAcento(val4)
Printer.Print Tab(3); TiraAcento(Val5)
Printer.Print Tab(2); Val6
Printer.Print Tab(3); String(44, "-") 'Uma linha com 80 caracteres "_"
Printer.Print Tab(2); "Data Pagto.: " & Val7
Printer.Print Tab(3); "Hora Pagto.: " & Val8
Printer.Print Tab(2); "Operador(a): " & TiraAcento(Val9)
Printer.Print Tab(3); "Sub-Total..: R$ " & Format(Val10, "###,###,###,##0.00")
Printer.Print Tab(2); "Descontos..: R$ " & Format(Val11, "###,###,###,##0.00")
Printer.Print Tab(3); "Total Pagto: R$ " & Format(Val12, "###,###,###,##0.00")
Printer.Print Tab(2); String(44, "-") 'Uma linha com 80 caracteres "_"
Printer.Print Tab(3); " PAGAMENTO REFERENTE"
Printer.Print Tab(2); "Ident. Cadastral: " & Val16
Printer.Print Tab(3); TiraAcento(Val13)
Printer.Print Tab(2); String(44, "=") 'Uma linha com 80 caracteres "_"
Printer.Print Tab(3); " " & Val14 & " - " & Val15
Printer.Print Tab(3); " COLETORIA MUNICIPAL"
Printer.Print Tab(3); String(44, "=") 'Uma linha com 80 caracteres "_"
Printer.Print 'Uma linha com 80 caracteres "_"
Printer.Print 'Uma linha com 80 caracteres "_"
Printer.Print 'Uma linha com 80 caracteres "_"
Printer.Print 'Uma linha com 80 caracteres "_"
Printer.Print 'Uma linha com 80 caracteres "_"
Printer.Print 'Uma linha com 80 caracteres "_"
Printer.Print 'Uma linha com 80 caracteres "_"
Printer.Print 'Uma linha com 80 caracteres "_"
Printer.Print 'Uma linha com 80 caracteres "_"
Printer.Print Tab(3); "."
Printer.EndDoc
===================================================
mas o que ocorre, e nao estou conseguindo resolver... no final do codigo eu coloquei 9 linhas em branco, para a ultima linha impressa ficar acima da serrilha para corte, ate ai tudo bem...
mas quando eu mando imprimir outro cupom, na sequencia, a impressora sobe o papel ate começar a imprimir o proximo cupom, nisso estou perdendo uns 10cm d papel...
gostaria de algo, que nao deixasse subir o papel, fazendo a proxima impressao iniciar onde o papel esta...
alguma ideia
