Imprimir arquivo pdf -SOLUÇÃO ENCONTRADA

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

malcarli
Usuário Nível 3
Usuário Nível 3
Mensagens: 239
Registrado em: 20 Ago 2015 18:14
Localização: marilia/sp

Imprimir arquivo pdf -SOLUÇÃO ENCONTRADA

Mensagem por malcarli »

Boa tarde, fiz a geração de um arquivo pdf (boleto.pdf).

Preciso que seja impresso, após a geração, sem abrir o acrobat ou outro leitor de pdf.

Usei o comando abaixo, mas não imprime. Envia para o spool de impressão, mas fisicamente não imprime.

Código: Selecionar todos

WIN_PrintFileRaw(GetDefaultPrinter(), [boleto.pdf], "Impressao de  Boletos")
Alguém poderia ajudar na solução.

Obrigado

Att.

Marcelo A. L. Carli
Marília/SP
Capital Nacional do Alimento ®

http://marcelo.lx.com.br
http://www.marazambon..blogspot.com/
Email / Skype: malcarli@life.com.br
malcarli
Usuário Nível 3
Usuário Nível 3
Mensagens: 239
Registrado em: 20 Ago 2015 18:14
Localização: marilia/sp

Imprimir arquivo pdf -SOLUÇÃO ENCONTRADA

Mensagem por malcarli »

A solução encontrada (sem querer) recebido um post e estudado a solução

Código: Selecionar todos

FUNCTION print_somepdf()
LOCAL cPrn,ncop := 1
		    Win_PrintDlgDC( @cPrn,,,ncop)
//                  win_PrintDlgDC( [@<cDevice>],[<nFromPage>],[<nToPage>],[<nCopies>] )
 		        	 IF !( EMPTY( cPrn ) )
						wapi_ShellExecute( 0, "printto","somefile.pdf", cPrn , 0, 0 )
				 ENDIF
RETURN
Quando se utiliza o comando: wapi_ShellExecute( 0, "print","somefile.pdf", cPrn , 0, 0 ), não seleciona nenhuma impressora, imprimindo somente na impressora padrão do windows, mas quando substitue o comando PRINT por PRINTTO aceita seleção de impressora.

Att.

Marcelo A. L. Carli
Marília/SP
Capital Nacional do Alimento ®

http://marcelo.lx.com.br
http://www.marazambon.blogspot.com/
Email / Skype: malcarli@life.com.br
Responder