Postada em 20/04/2006 11:00 hs
Open "Lpt1" For Output As #1 ' início do comando
Print #1, ' pula uma linha
Print #1, Tab(51); "X" ' posiciona na coluna 51 para imprimir a letra X
Print #1,
Print #1,
Print #1, Tab(2); LblCFOP.Caption; '+2 'posiciona na coluna 2
Print #1, Tab(25); TxtCfop.Text '+4 ' posiciona na coluna 25
close #1 ' fecha o relatório e libera para imprimir.
Obs2: Uso esse comando principalmente na impressora jato de tinta, ex: HP
-------- comando printer
Printer.Scalemode = 4 ' Seleciona o Mode da Impressão, nesse caso caracteres
Printer.FontSize = 10 ' Tamanho da Fonte
Printer.FontName ="ARIAL" ' Nome da Fonte
Printer.FontBold=True ' True deixa a fonte em negrito
Printer.Print Tab(51); "X" ' posiciona na coluna 51 para imprimir a letra X
Printer.Print tab(0) ' Pula uma linha
Printer.Print tab(0)
Printer.Print Tab(2); LblCFOP.Caption; '+2 'posiciona na coluna 2
Printer.Print Tab(25); TxtCfop.Text '+4 ' posiciona na coluna 25
Printer.EndDoc ' fecha o relatório e libera para imprimir.
|
