Muito obrigado, vou testar e te falo se funcionou
Valeu mesmo anderson
-----Mensagem original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Enviada em: quarta-feira, 16 de outubro de 2002 09:35
Para: [EMAIL PROTECTED]
Assunto: Re: RES: [sqlwin] Impressora
Bom dia Marcos,
Voc� pode imprimir diretamente na LPT1 sem gerar ( QRP ) como no Clipper,
veja o exemplo abaixo retirado do centuraexplorer.com:
Crie uma classe com as fun��es:
Functional Class: cImpressora
Description: Esta classe manda a impress�o diretamente para a
impressora sem passar pelo Report Builder
Derived From
Class Variables
Instance Variables
File Handle: hPorta
String: sNome
Functions
Function: Abre
Description: Abre o File Handle
Returns
Parameters
String: p_sNome
Static Variables
Local variables
Actions
If hPorta
Call Fecha ( )
If SalFileOpen( hPorta, p_sNome, OF_Create |
OF_Binary | OF_Write )
Set sNome = p_sNome
Return TRUE
Return FALSE
Function: ImprimeChar
Description: Imprime caracter de configura��o da
impressora (tipo da fonte)
Returns
Parameters
Number: p_nChar
Static Variables
Local variables
Actions
Return SalFilePutChar( hPorta, p_nChar )
Function: Imprime
Description: Imprime uma linha
Returns
Parameters
String: p_sLinha
Static Variables
Local variables
Actions
Return SalFilePutStr( hPorta, p_sLinha )
Function: Fecha
Description: Fecha o file Handle
Returns
Parameters
Static Variables
Local variables
Actions
Call SalFileClose( hPorta )
Set hPorta = hWndNULL
Set sNome = STRING_Null
Function: SaltaLinha
Description:
Returns
Parameters
Number: nLinhas
Static Variables
Local variables
Number: nCont
Actions
Set nCont = 1
While nCont <= nLinhas
Call SalFilePutStr( hPorta, ' ' )
Set nCont = nCont + 1
*************************************************************************************
Na app que vc vai criar fa�a o seguinte, este exemplo � para impressoras
locais:
declare a vari�vel (objeto)
oImpressora: cImpressora
Crie um botao, no SAM_Click digite o exemplo abaixo:
If not oImpressora.Abre("lpt1")
Call f_MensagemErro('Erro ao abrir LPT1')
Return FALSE
Else
Call oImpressora.Imprime('Teste')
Call oImpressora.SaltaLinha(2)
! Como no Clipper vc pode mandar comandos para alterar fonte e tamanho do
formulario
Call oImpressora.Imprime(SalNumberToChar( 15 ) ) ! Comprime a Fonte
para impressoras matriciais
Call oImpressora.Imprime('Novo Teste')
Call oImpressora.Imprime(SalNumberToChar( 18 ) ) ! Retornar fonte ao
tamanho normal
Call oImpressora.Fecha()
Espero ter ajudado !
------------------------------------------------------------
Anderson B. Dias Figueiredo
Analista de Sistemas I
Cenibra - Celulose Nipo Brasileira S/A
"Jose Carlos
Schmidt" Para: <[EMAIL PROTECTED]>
<[EMAIL PROTECTED] cc:
rg.br> Assunto: RES: [sqlwin] Impressora
Enviado Por:
owner-sqlwin@virt
ualand.net
15/10/2002 21:05
Favor responder a
sqlwin
Marcos
Isto � coisa de Clipper e no Centura nao tem como enviar dados direto pra
impressora de forma f�cil. Voce precisa criar um Report ( QRP ) e ai sim vc
envia os dados.
Abcs
=======================================================================================
Jos� Carlos Schmidt
Analista de Sistemas S�nior
Cel: +55 11 9673-6925
=======================================================================================
-----Mensagem original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Em nome de Marcos Augusto Pereira
Enviada em: Ter�a-feira, 15 de Outubro de 2002 15:22
Para: '[EMAIL PROTECTED]'
Assunto: [sqlwin] Impressora
Alguem sabe como mandar uma linha direto para impressora tipo
@ 10,10 say "asdasdasdasd"
obrigadoo
Marcos
=============================================Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
=============================================
