Para Ednaldo ou Gilmer

[Ladinilson]

Caros colegas, uso a TxtPreview do Ednaldo em todos os meus relatórios e estou com problemas em duas situações:

1 - Imprimir em impressoras USB;

2 - Impressoras EPSON SX Series não imprime pois o representante informou que a mesma não imprime em DOS (uso da TDOSPrn) como visto em um tópico anterior.

Citei o Gilmer pois teve participação na modificação na classe.

Desde já agradeço a atenção.

Ladinilson

[Ladinilson]

Caros colegas, uso a TxtPreview do Ednaldo em todos os meus relatórios e estou com problemas em duas situações:

1 - Imprimir em impressoras USB;

2 - Impressoras EPSON SX Series não imprime pois o representante informou que a mesma não imprime em DOS (uso da TDOSPrn) como visto em um tópico anterior.

Citei o Gilmer pois teve participação na modificação na classe.

Desde já agradeço a atenção.

Ladinilson

[kapiaba]

NESTE CASO, SERIA INTERESSANTE, QUE VOCE GERASSE UM ARQUIVO.TXT, CHAMASSE UM EDITOR FOR WINDOWS, TIPO: EDITPAD.EXE QUE IMPRIME EM QUALQUER IMPRESSORA.

POR EXEMPLO:

http://www.fivewin.com.br/exibedicas.asp?id=701

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

[CIACPD]

Olá Ladinilson,

Voce poderia usar a classe que gera relatório em PDF, ela funciona muito bem em clipper e xharbour, assim resolveria seu problema e o visualizador não tem comparação.

Ela é totalmente configurável, abaixo um exemplo de relatório utilizando a classe PDF

pdfOpen('c:\relato.pdf', 200, .t.)

pdfBookOpen()

totger:=0

select l_pagar

go top

do while !eof()

pdfNewPage( "LETTER", "P", 6 )

pdfBookAdd( "Títulos", 2, aReport[ REPORTPAGE ], 0 )// Nome da Página

pdfBox( 0, 0, 50, 600, 1, , "D" ) //retângulo linha, coluna, altura, largura, espessura da linha

pdfImage( 'LOGO.jpg', 1, 1, "M" ) //imagem logotipo da ciacpd

nK := 5

//*****// Inicio do Cabeçario

pdfSetFont( aFonts[ 3 ][ 1 ], 1, 18 )

pdfAtSay(cempresa, 1.3, 16, "R")

pdfSetFont( aFonts[ 3 ][ 1 ], 1, 12 ) //fonte tipo, Style, tamanho

pdfAtSay("Data: "+ddata, 0, 160, "R")

pdfAtSay("Hora: "+chora, 1.5, 160, "R")

pdfAtSay("Usuário:"+cusuario, 3, 160, "R")

//*****// Fim do Cabeçario

pdfAtSay("Relatório: "+crela, nK, 00, "R")

nK++

pdfAtSay("Filtro: "+cfiltro, nK, 00, "R")

nK+=2

//*****// Inicio do Cabeçario das Colunas

/*

pdfAtSay("Vencimento" , nK, 00, "R")

pdfAtSay("Movimento" , nK, 35, "R")

pdfAtSay("Documento" , nK, 70, "R")

pdfAtSay("Fornecedor" , nK, 120, "R")

pdfAtSay("Operação" , nK, 120, "R")

pdfAtSay("Vl Atual" , nK, 185, "R")

*/

pdfAtSay(replicate("-",79) , nK, 00, "R")

nK++

pdfAtSay("Baixa" , nK, 00, "R")

pdfAtSay("Documento" , nK, 35, "R")

pdfAtSay("Fornecedor" , nK, 70, "R")

pdfAtSay("Vl Atual" , nK, 185, "R")

nK++

pdfAtSay("Vencimento" , nK, 00, "R")

pdfAtSay("Parcela" , nK, 35, "R")

pdfAtSay("Operação" , nK, 70, "R")

// pdfAtSay("Operação" , nK, 120, "R")

// pdfAtSay("Vl Atual" , nK, 185, "R")

//*****// Fim do Cabeçario das Colunas

//*****// Inicio dos Dados

do while nk<= 55 .and. !eof()

nK++

if dataatual#l_pagar->dtbai

if ntotdataatual>0

pdfAtSay(replicate("-",79) , nK, 00, "R")

nK++

pdfAtSay("Dia: "+dtoc(dataatual) , nk, 70, "R" )

pdfAtSay('Total dia..: ->> ' , nk, 120, "R" )

pdfAtSay(transform(ntotdataatual,"@E 999,999.99") , nK, 180, "R")

nK++

endif

dataatual := l_pagar->dtbai

ntotdataatual:=0

endif

nvlatu:=((l_pagar->vlpar+l_pagar->vljur)-l_pagar->vldes)

pdfAtSay(replicate("-",79) , nK, 00, "R")

nK++

pdfAtSay(dtoc(l_pagar->dtbai) , nK, 00, "R")

pdfAtSay(l_pagar->nrdoc , nK, 35, "R")

pdfAtSay(l_pagar->desfor , nK, 70, "R")

pdfAtSay(transform(l_pagar->vlbai,"@E 999,999.99") , nK, 180, "R")

nK++

pdfAtSay(dtoc(l_pagar->dtven) , nK, 00, "R")

pdfAtSay(zeracod(str(l_pagar->nrfat,2)) , nK, 35, "R")

pdfAtSay(l_pagar->desope , nK, 70, "R")

ntotdataatual:=ntotdataatual+l_pagar->vlbai

totger:=totger+nvlatu

skip

enddo

nK++

pdfAtSay(replicate("-",79) , nK, 00, "R")

if ntotdataatual>0

nK++

pdfAtSay('Total dia..: ->> ' , nk, 120, "R" )

pdfAtSay(transform(ntotdataatual,"@E 999,999.99") , nK, 180, "R")

nK++

endif

nK:=nK++

pdfAtSay('Total geral: ->> ' , nk, 120, "R" )

pdfAtSay(transform(totger,"@E 999,999.99") , nK, 180, "R")

//*****// Fim dos Dados

enddo

cRun := "c:\relato.pdf"

pdfClose()

Shellexecute(,"open",cRun) // Abre o arquivo com o visualizador padrão (acrobate-reader)

daniel segura

ciacpd@terra.com.br