Início![[Resolvido]Imprimir relatorio pdf ja salvo Empty](https://2img.net/i/empty.gif)
NADIRONUNES 29/6/2012, 14:49tenho um relatorio que fica na pasta c:\chekar\nf-e o pdf fica arquivo com o nome 430-junho-2012.pdf que seria (430 o numero da nota) (junho-2012 o mes), entao eu queria uma forma de imprimir este relatorio direto sem precisar de busca-lo na pasta
3 participantes
[Resolvido]Imprimir relatorio pdf ja salvo
NADIRONUNES- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 578
Registrado : 30/08/2010
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5120
Registrado : 20/04/2011
Bom dia....
Apenas uma pergunta.....essa nota foi gerada por algum evento no Access ?
Apenas uma pergunta.....essa nota foi gerada por algum evento no Access ?
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
NADIRONUNES- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 578
Registrado : 30/08/2010
sim
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5120
Registrado : 20/04/2011
Uma sugestão então:
Insira um rotina de impressão antes de salvar o arquivo em pdf ou depois !
Insira um rotina de impressão antes de salvar o arquivo em pdf ou depois !
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
NADIRONUNES- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 578
Registrado : 30/08/2010
como assim?
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
Boa tarde, Nadiro
Utilize esta função:
Function ImprimirDoc(NomeDocumento As String)
AbrirDoc = ShellExecute(0, "Print", NomeDocumento, vbNullString, "", SW_SHOWNORMAL)
ExitFunction:
Exit Function
ImprimirDoc_Error:
MsgBox "Error: " & err & " " & Error
GoTo ExitFunction
End Function
Utilize esta função:
Function ImprimirDoc(NomeDocumento As String)
AbrirDoc = ShellExecute(0, "Print", NomeDocumento, vbNullString, "", SW_SHOWNORMAL)
ExitFunction:
Exit Function
ImprimirDoc_Error:
MsgBox "Error: " & err & " " & Error
GoTo ExitFunction
End Function
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
Não tenho havido continuidade. O assunto passa a Resolvido.
.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
Conteúdo patrocinado