Bem Vindo! Entrar Criar um novo perfil

Avançado

Re: Impressão em PDF (931 Visualizações)

18/10/2013 as 08:11hs
Utilizando a mesma técnica de mudar a impressora no Crystal que já te falei em outra oportunidade.
Eu instalo o PDFCreator e mudo a configuração dele para não solicitar nada para o usuário. Mudo a impressora do crystal para imprimir no PDFCreator e ele gera o PDF sem problemas.

oCrw:OutputToPrinter(oImpressora) // imprime o DANFE normalmente sem preview.
	
        // modifica as configurações do PDFCreator no registro do windows para ele salvar diretamente sem solicitar nada para o usuário.
	reg2   := Class_HKCU{}
	reg2:Working_Subkey := "SOFTWARE\PDFCreator\Program"
	reg2:WriteString( "", "AutosaveDirectory", ConsbrasIniFS:GetString( "CaminhosNFe","Enviados" )+"\Autorizados\"+Str(Year(self:dDataRef),4)+"\"+StrZero(Month(self:dDataRef),2)+"\"+StrZero(Day(self:dDataRef),2)+"\"winking smiley
	reg2:WriteString( "", "AutosaveFilename", self:cChave+self:cDV+".pdf"winking smiley
	reg2:WriteString( "", "UseAutosave", "1"winking smiley
	reg2:WriteString( "", "UseAutosaveDirectory", "1"winking smiley
	reg2:WriteString( "", "UseAutosaveFormat", "0"winking smiley
	
	// gera o pdf
	oImpressora := dlgSelectPrinter{ 1,199,1}
	oImpressora:pshOK()
	oImpressora:aPrinter[1] := "PDFCreator"
	oImpressora:aPrinter[2] := "winspool"
	oImpressora:aPrinter[3] := "Ne00:"
	oCrw:OutputToPrinter(oImpressora)


// quando termina o procedimento de impressão, volto o PDFCreator para a configuração normal.
	reg2   := Class_HKCU{}
	reg2:Working_Subkey := "SOFTWARE\PDFCreator\Program"
	reg2:WriteString( "", "UseAutosave", "0"winking smiley
	reg2:WriteString( "", "UseAutosaveDirectory", "0"winking smiley

Veja se isso te ajuda.

Abraços.
Assunto Autor criado

Impressão em PDF (1329 Visualizações)

Kiko Fernandes 04/10/2013 as 12:07hs

Re: Impressão em PDF (931 Visualizações)

Marco Antonio 18/10/2013 as 08:11hs

Re: Impressão em PDF (1003 Visualizações)

Kiko Fernandes 18/10/2013 as 10:23hs

Re: Impressão em PDF (899 Visualizações)

Marco Antonio 18/10/2013 as 10:37hs



Somente usuários registados podem criar neste fórum.

Clique aqui para fazer login

Consultar mensagens antigas
Grupo VO Brasil


Hosted by