Impressão De Valor Contido Em Variável...

[Bob Esponja]

Tenho uma aplicação e gostaria de imprimir o valor contido em uma variável, na impressora local.

Acredito que seja simples, mas não estou encontrando suporte no help.

O nome da variável que contem a informação que desejo imprimir é "tag1"

Se alguém puder me ajudar poste aqui...

Obrigado!

[Graymalkin]

Se for uma impressora ligada na porta LPT1 você pode tentar fazer:

n = freefile()
open "lpt1:" for output as #n
? #n, variável
close #n

Do contrário, só mesmo usando o método PrintOut para imprimir o documento.

Abraços,

Graymalkin

[Bob Esponja]

Olá Graymalkin,

o código não funcionou =/

tentei fazer algumas modificações e não consegui.

eu consegui fazer funcionar no VB, mas eu preciso fazer a mesma coisa em VBA.

No VB ficou assim:

Private Sub Command1_Click()

Dim teste As Printer

Dim nome As String

nome = Text1.Text

Set teste = Printer

teste.Print nome

teste.EndDoc

End Sub[\code]

ele fez exatamente o que eu queria, imprimindo direto na impressora padrão. Só que no VBA ele não reconhece o objeto "Printer".

e o printout imprime a tela inteira, e na verdade o que eu quero é somente imprimir um valor.

tem uma luz aí pra me dar???? Tá brabo conseguir alguma coisa na internet ou em livros a respeito....

Valeu!!

[Graymalkin]

Mas, por que você não usa o próprio VB?

De qualquer maneira, uma forma seria criar uma DLL no VB que lhe permitisse usar o objeto Printer e depois fazer uma referência à esta DLL no seu projeto do VBA. Só que aí você ficaria dependente desta DLL e das DLLs do VB6.

Abraços,

Graymalkin