Impressao No Word

[mizzu]

Oi alguém pode me ajudar?

Para abrir o Word eu uso esses comandos, ok.

Private Sub Command2_Click()

Dim objword As Object 'declara um variável objeto

Set objword = CreateObject("Word.Basic") 'cria objeto e inicia o Word

objword.filenew "Normal", 0 'cria novo arquivo

objword.Bold 'define fonte em negrito

objword.FontSize 24 'define tamanho da fonte

objword.Insert "AUTOMAÇÃO OLE !!!" 'insere o texto no arquivo

objword.appmaximize "", 1

objword.FilePrintPreview 'Visualiza a impressão

objword.AppActivate "Microsoft Word"

End Sub

Agora eu gostaria de abrir o Bloco de Notas para imprimir, alguém sabe os comandos?

Grato.

[Graymalkin]

Pra quê abrir o Bloco de Notas se você pode imprimir diretamente do seu programa? Exemplo:

n = freefile()
open "LPT1:" for output as #n
? #n, "PRIMEIRA LINHA DO SEU TEXTO"
? #n, "SEGUNDA LINHA DO SEU TEXTO"
close #n

O código acima vai imprimir na impressora matricial com a fonte dela (ou seja, sem "desenhar" - o é muuuuiiittttooo mais rápido).

Abraços,

Graymalkin