PROBLEMAS AO IMPRIMIR...

USUARIO.EXCLUIDOS 05/05/2004 19:19:10
#23264
Só funciona na minha máquina. O que pode ser ???

Obs: Nas outras maquinas que testei não acontece nada. Será que tem a ver com o tipo de configuração de porta nas maquinas ? ex: EPP...

If rsSQLPVHead.RecordCount 0 Then

If rsSQLPVDetails.RecordCount 0 Then

If vTipoPrinter = "Prevenda" Then

Fnun = FreeFile

Open Porta For Output As #Fnun

TamanhoFonte ("Normal")
Print #Fnun,
Print #Fnun,
Print #Fnun, LMargemH & "ORCAMENTO: " & Format(frmVendas.varcodOrcamento, "0000000")
TamanhoFonte ("10CPi")
Print #Fnun, LMargem & Replicate("-", 130)
Print #Fnun, LMargem & ColocaEspacosDepois("CLIENTE: " & UCase(rsSQLPVHead("Cliente")), 50) & " " & "DATA: " & rsSQLPVHead("Data")
Print #Fnun, LMargem & Replicate("-", 130)
Print #Fnun, LMargem & ColocaEspacosDepois("CODIGO:", 10) & Space(2) & ColocaEspacosDepois("DESCRICAO:", 45) & Space(2) & "QTDE:" & Space(4) & "UN:" & Space(2) & ColocaEspacosAntes("UNITARIO:", 15) & Space(2) & ColocaEspacosAntes("TOTAL:", 15)
Print #Fnun, LMargem & Replicate("-", 130)

rsSQLPVDetails.MoveFirst

Do Until rsSQLPVDetails.EOF


Print #Fnun, LMargem & ColocaEspacosDepois(rsSQLPVDetails("Peca"), 10) & Space(2) & ColocaEspacosDepois(rsSQLPVDetails("Descricao"), 45) & Space(2) & Format(rsSQLPVDetails("Quantidade"), "00000") & Space(4) & rsSQLPVDetails("Un") & Space(2) & ColocaEspacosAntes(Format(rsSQLPVDetails("Unitario"), "R$ #,##0.00;(R$ #,##0.00)"), 15) & Space(2) & ColocaEspacosAntes(Format(rsSQLPVDetails("TotalPeca"), "R$ #,##0.00;(R$ #,##0.00)"), 15)
DoEvents
rsSQLPVDetails.MoveNext

Loop

Print #Fnun, LMargem & Replicate("-", 130)
Print #Fnun, LMargem & ColocaEspacosDepois("TOTAL DO ORCAMENTO: R$ " & Format(rsSQLPVHead("total"), "#,##0.00;(#,##0.00)"), 50) & " " & "Cond. Pagamento: " & rsSQLPVHead("CondicaoPagamento")
Print #Fnun,
Print #Fnun, LMargem & ColocaEspacosDepois("Vendedor: " & rsSQLPVHead("Usuario"), 50) & " " & "Transportadora: " & rsSQLPVHead("Transportadora")
Print #Fnun, LMargem & Replicate("-", 130)
Print #Fnun,
Print #Fnun,
Print #Fnun,
Print #Fnun,
Print #Fnun,
Print #Fnun,


Close #Fnun

End If
End If
End If
USUARIO.EXCLUIDOS 06/05/2004 00:27:06
#23267 Resposta escolhida
O que significa PORTA em Open Porta For Output As #Fnun ? Seria "LPT1:"? Já tentou utilizar "PRN:"?
Tópico encerrado , respostas não são mais permitidas
Voltar