IMPRIMIR CHR ESPECIAIS NO OBJ PRINTER
Galera tem como eu imprimir CHR(218),CHR(196),CHR(191),CHR(179), e etc..
no obj printer.
Esse caracteres eu uso para montar minhas tabelas imprindo direto pela Lpt1. E imprimindo pelo obj printer ele imprime outros diferentes e eu não gostaria de usar EX.: objPrint.Line (1, 1)-(1 + 6.5, 1 + 9), , B. Teria como fazer isso? Se Alguém souber como fazer agradeço ajuda.
no obj printer.
Esse caracteres eu uso para montar minhas tabelas imprindo direto pela Lpt1. E imprimindo pelo obj printer ele imprime outros diferentes e eu não gostaria de usar EX.: objPrint.Line (1, 1)-(1 + 6.5, 1 + 9), , B. Teria como fazer isso? Se Alguém souber como fazer agradeço ajuda.
Cara, fiquei voando no que vc quis dizer.
Será que vc já não encontrou sua própria resposta em sua pergunta ?
Quando o Access é Direto no Lpt1 (Print#) vc tem que ver o manual da impressora.
Agora pelo Printer pode usar normalmente o que vc acabou de citar
objPrinter.Line (1, 1)-(1 + 6.5, 1 + 9), , B
ou
objPrinter.Print "Seu Texto"
Será que vc já não encontrou sua própria resposta em sua pergunta ?
Quando o Access é Direto no Lpt1 (Print#) vc tem que ver o manual da impressora.
Agora pelo Printer pode usar normalmente o que vc acabou de citar
objPrinter.Line (1, 1)-(1 + 6.5, 1 + 9), , B
ou
objPrinter.Print "Seu Texto"
Deixe eu ser mais claro.
Gostaria de imprimir pelo obj printe os seguintes caracter:
"┘└┌ ┐ ┼ ┴ ┬ ┤├"
Exemplo: Printer.print "┌" & "-" & "┐"
Gostaria de imprimir pelo obj printe os seguintes caracter:
"┘└┌ ┐ ┼ ┴ ┬ ┤├"
Exemplo: Printer.print "┌" & "-" & "┐"
AAAAAAAAAAAAA
Esquece, isso são caracteres UniCode e parece que o VB só lê os Ascii (0 a 255)
Vc pode até conseguir imprimir Via API
Procure por Unicode
flw...
Esquece, isso são caracteres UniCode e parece que o VB só lê os Ascii (0 a 255)
Vc pode até conseguir imprimir Via API
Procure por Unicode
flw...
tenta fazer isso, quem sabe vc num encontra o caracter q vc quer
Dim Contador as integer
contador = 0
Open "lpt1" For Output As #1
do while contador < 256
Print #1, contador & " imptimiu :" & chr(contador)
contador = contador + 1
loop
Close #1
Dim Contador as integer
contador = 0
Open "lpt1" For Output As #1
do while contador < 256
Print #1, contador & " imptimiu :" & chr(contador)
contador = contador + 1
loop
Close #1
CREGO obrigado pela ajuda, mas isso é para imprimir direto pela LPT1 e eu quero e pelo obj printer.
CLEVERTON obrigado pela dica, vou procurar alguma coisa sobre Unicode via API. Valeu a todos!
CLEVERTON obrigado pela dica, vou procurar alguma coisa sobre Unicode via API. Valeu a todos!
Tópico encerrado , respostas não são mais permitidas