marcos Posted February 11, 2004 Report Share Posted February 11, 2004 Caros Amigos, Eu utilizo a TDosPrn para imprimir alguns relatorios em meu sistema. O problema é o seguinte: Quando eu imprimo um relatorio comecando na "00, 00 SAY ..." em impressoras matriciais funciona normalmente. Entretanto, quando imprimo em impressoras jato de tintas e laser, na primeira folha o texto sai normalmente, no entanto, a partir da segunda folha o texto na linha 0,0 não sai ou quando sai o texto começa a ser imprimido a partir da metade da linha. O problema persiste enquanto eu não desligar e Ligar a impressora. Alguém saberia qual a solução? Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br Quote Link to comment Share on other sites More sharing options...
karinha Posted February 12, 2004 Report Share Posted February 12, 2004 LOCAL LINHA, nPAG, oPrn LINHA := 0 // Evite Imprimir na Coluna 0 (Zero) Sempre na 1 (um) DO WHILE.... Bla Bla Bla... //AQUI PULO DE PAGINA SE MAIOR QUE 60 IF LINHA >= 56 LINHA := 0 nPAG := nPAG + 1 ENDIF IF !EOF() // Teste com Estes Comandos.... @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; "MATRICULA:" + " - " + STR(Raz_Matric) + " - " + ; Dest_Nome + " - " + ; "DATA: " + " - " + ; Dtoc(Cli_Desde) OF OPRN LINHA:=LINHA+1 //... Continuacao.... DBSKIP() ENDIF ENDDO João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
marcos Posted February 13, 2004 Author Report Share Posted February 13, 2004 Olá João Não deu certo. Na segunda folha o texto da primeira linha continua a ser imprimido a partir do meio da linha. Abraços Marcos - S.B.Campo - SP marcos_rps@uol.com.br marcos@siderinox.com.br Quote Link to comment Share on other sites More sharing options...
karinha Posted February 13, 2004 Report Share Posted February 13, 2004 Poste o Código, ou envie em meu mail, que eu vejo este mistério. Não esqueça de dar no final da impressão: linha:=linha+1 João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
karinha Posted February 16, 2004 Report Share Posted February 16, 2004 Olá Marcos, Veja Seu E_Mail. Se gostar, Poste em DICAS. Abraços. João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.