Imprimir

[Steven Tyler]

eae pessoal beleza?

então, eu tenho uma duvida ai, eu fui instalar um sistema na industria la e imprimiu certo, so tem uma coisa, a letra saiu bem ao pé da letra q eu programei

arial tamanho 12.

a pergunta é, como q eu faço para imprimir com uma fonte padrão da impressora?

tipo imprimir uma nota q tenha a fonte dela identica a aquelas notas fiscais normais q a gente ve por ai, com uma fonte meio de impressora antiga, não arial como eu fiz, uma fonte bem o tipo antigona?

desde já eu agradeço.

[Graymalkin]

Você faz isso imprimindo diretamente na LPT1, como se estivesse criando um arquivo:

n = freefile()
open "lpt1:" for output as #n
? #n, "linha1"
? #n, "linha2"
close #n

Abraços,

Graymalkin

[Steven Tyler]

eu não entendi, se no caso eu uso assim

printer.scalemode = vbcharacters
printer.fontname=arial

vsql = "select * from tbl_clientes where codigo like & vCodigo"
se tabela_cli = b_dados.openrecordset(vsql)

printer.currentx = 5
printer.currenty = 5
printer. print tabela_cli("endereco")

printer.enddoc

como q eu faria para imprimir dados do banco como acima, com esse codigo q você me passou?

[Graymalkin]

Ficaria assim:

vsql = "select * from tbl_clientes where codigo like & vCodigo"
se tabela_cli = b_dados.openrecordset(vsql)

n=freefile()
open "lpt1:" for output as #n

? #n, tabela_cli("endereco")

close #n

Ou seja, em todo lugar que está 'Printer.Print "texto"' fica 'Print #n, "texto"' e no lugar de 'Printer.EndDoc' fica 'close #n'.

Abraços,

Graymalkin

[Steven Tyler]

e para imprimir no lugar desejado com esse codigo?

porque la no q eu to fazendo é crrenty e currentx, nessa codificação fica como?

desculpa ai(sou novato)

[Graymalkin]

Talvez existam códigos próprios da impressora para fazer isso, porém desconheço-os. Note que esse tipo de impressão segue o tamanho e estilo de fonte da impressora e não é uma impressão gráfica, por isso o ajuste que você pode fazer é colocando espaços em branco (para a coluna) e pulando linhas (para a linha).

Abraços,

Graymalkin

[Steven Tyler]

então graymalkin, estou usando esse coigo ai q você me passou

vsql = "select * from tbl_clientes where codigo like & vCodigo"
se tabela_cli = b_dados.openrecordset(vsql)

n=freefile()
open "lpt1:" for output as #n

? #n, tabela_cli("endereco")

close #n

e a impressora parece q vai imprimir, ela tem uma ação la, mais ela não puxa a folha, so funciona esse tipo de impressão com uma impressora matricial? porque eu to testando aqui na minha epson 480, q não é matricial, é grafica, sera q é por isso?

[Graymalkin]

Certas impressoras jato-de-tinta realmente não começam a imprimir quando se usa esse tipo de impressão até que se aperte o botão de ejetar a página. Isso eu me lembro de impressoras HP, mas não sei ao certo sobre as gráficas da Epson (com as matriciais eu só uso Epson e sei que isso funciona perfeitamente).

Abraços,

Graymalkin