IMPRESSAO DIRETA PARA IMPRESSORA
Até que fim estou terminando meu primeiro programa graças aos amigos do VBMANIA, so que a medida que vou criando os relatorio para serem impressos na matricial surge duvidas. Por exemplo criei um relatorio do Caixa, mas quando chega no fim da página continua imprimindo gostaria de saber se tem alguma maneira de chegar no fim da pagina iniciar novamente a impressao com o cabeçalho e se posso colocar na ultima linha da impressao dados como total do debito e credito
PS. Nao usei o objeto Printer.Print, e sim estou fazendo impressao direta para impresso.
Open "lpt1" For Output As #1
Print #1, Chr(27) & Chr(15)
Obrigado
PS. Nao usei o objeto Printer.Print, e sim estou fazendo impressao direta para impresso.
Open "lpt1" For Output As #1
Print #1, Chr(27) & Chr(15)
Obrigado
Voce vai ter que colocar um contador de linhas para controlar a impressao.
1) Primeiro, descubra quantas linhas tem a pagina;
...
Print #1, Tab(1); NLim
NLim = NLim + 1
...
2) Coloque um salto de paginas na rotina. Imprima, por exemplo, 30 linhas de dados e salte a pagina ( Print #1, Chr(18); Chr$(27) )
Obs.: Voce deve descobrir qual o codigo de salto de pagina de sua(s) impressoras(s), no meu caso acho que era Chr(18).
3) Dai voce vai colocando cabecalhos, rodapes, etc.. Mas sempre controlando o numero de linhas para nao terminar a pagina.
1) Primeiro, descubra quantas linhas tem a pagina;
...
Print #1, Tab(1); NLim
NLim = NLim + 1
...
2) Coloque um salto de paginas na rotina. Imprima, por exemplo, 30 linhas de dados e salte a pagina ( Print #1, Chr(18); Chr$(27) )
Obs.: Voce deve descobrir qual o codigo de salto de pagina de sua(s) impressoras(s), no meu caso acho que era Chr(18).
3) Dai voce vai colocando cabecalhos, rodapes, etc.. Mas sempre controlando o numero de linhas para nao terminar a pagina.
Tópico encerrado , respostas não são mais permitidas