cida Posted May 24, 2004 Report Share Posted May 24, 2004 Oi pessoal, tudo bem com vcs? Turminha é o seguinte, eu sou meio iniciante e não conheço muito bem os comandos de impressão. Eu precisava montar um relatório que tem muitos campos e tenho que imprimir em modo paisagem. Não sei como fazer isso no clipper. As impressoras que tenho aqui é HP jato de tinta e Matricial da Epson. Alguém pode me dar uma dica? thanks a lot Um beijão pra vcs! Cida - São Paulo cidapsilva@globo.com Quote Link to comment Share on other sites More sharing options...
gilmer Posted May 25, 2004 Report Share Posted May 25, 2004 Olá, Você precisa ver no manual da impressora o conjunto de códigos que permite fazer isto citação: Oi pessoal, tudo bem com vcs? Turminha é o seguinte, eu sou meio iniciante e não conheço muito bem os comandos de impressão. Eu precisava montar um relatório que tem muitos campos e tenho que imprimir em modo paisagem. Não sei como fazer isso no clipper. As impressoras que tenho aqui é HP jato de tinta e Matricial da Epson. Alguém pode me dar uma dica? thanks a lot Um beijão pra vcs! Cida - São Paulo cidapsilva@globo.com id=quote>id=quote> Quote Link to comment Share on other sites More sharing options...
denis Posted May 25, 2004 Report Share Posted May 25, 2004 1º até aonde vc conhece, para impressão de relatório, coloque um trecho do códido p'ra eu ver se consigo inclementalo. Exemplo: set dev to print @ 10,10 Say Chr(15) // Condença os caracteres na Epson @ 11,10 Say "DENIS" @ 12,10 Say Chr(18) // Volta ao normal. set dev to screen Denis 11 5571 71 01 a noite Quote Link to comment Share on other sites More sharing options...
Orlando FMC Posted June 6, 2004 Report Share Posted June 6, 2004 Cida, Veja se o exemplo abaixo pode ajudar: ------------------------------------- USE CLIENTES PRINT oPrn NAME "Teste" oPrn:SetLandscap() // modo paisagem *oPrn:SetPortrait() // modo retrato (normal) L1= 1 // posicao da linha em centimetros C1=10 // posicao da coluna em centimetros PAGE // inicia uma pagina DO WHILE !EOF() oPrn:cmSay(L1,C1,nome) oPrn:cmSay(L1,C1+5,telefone) L1 += 0.8 IF L1>27 // mudar pagina ao atingir 27 cm ENDPAGE // encerra esta pagina L1=1 PAGE // inicia nova pagina ENDIF DBSKIP() ENDDO ENDPAGE // termina a pagina ------------------------------------- Se precisar de controles de impressão, separação de colunas, linhas, retângulos, etc, posso lhe ajudar. Orlando orlandofmc@bol.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.