Macro para imprimir PDF com nome que está na célula

Question

Boa noite a todos...

criei uma macro para imprimir um PDF com o nome que se encontra em uma determinada c&eacute;lula, mas eu quero que seja impresso apenas uma parte da planilha, n&atilde;o informa&ccedil;&otilde;es que se encontra fora do local especificado.

em anexo a planilha de exemplo, quem puder ajudar... obrigado

Answer

No lugar de [COLOR=#8000ff]ActiveSheet [/COLOR]coloque o intervalo que deseja imprimir [COLOR=#a64dff]Range(B3:N35)[/COLOR]

Answer

[QUOTE=GuimeM, post: 8489409, member: 1263505]No lugar de [COLOR=#8000ff]ActiveSheet [/COLOR]coloque o intervalo que deseja imprimir [COLOR=#a64dff]Range(B3:N35)[/COLOR][/QUOTE]

Meu amigo [USER=1263505]@GuimeM[/USER], agrade&ccedil;o demais sua ajuda... uma coisa que teoricamente &eacute; simples, mas para quem n&atilde;o sabe &eacute; um bicho de 1000 cabe&ccedil;as... Muito, muito obrigado pela ajuda... Muito obrigado mesmo... Deus lhe aben&ccedil;oe... gratid&atilde;o

[USER=1263505]@GuimeM[/USER], j&aacute; coloquei como resolvido, mas me surgiu uma d&uacute;vida. se eu colocasse uma caixa de texo para exibir o caminho onde o arquivo foi salvo e um bot&atilde;o ao lado para abrir, como ficaria. Porque pode ser que ap&oacute;s o envio por email, a pessoa queira fazer a impress&atilde;o do relat&oacute;rio. Em anexo o que estou falando...

Answer

[QUOTE=Playboy, post: 8489433, member: 669][USER=1263505]...um bot&atilde;o ao lado para abrir, [/USER][/QUOTE][USER=1263505]

Se voc&ecirc; quer abrir o pdf gerado, no lugar de OpenAfterPublish:=[COLOR=#0000ff]False[/COLOR] coloque OpenAfterPublish:=[COLOR=#0000ff]True[/COLOR][/user]

Answer

[QUOTE=GuimeM, post: 8489443, member: 1263505][USER=1263505]

Se voc&ecirc; quer abrir o pdf gerado, no lugar de OpenAfterPublish:=[COLOR=#0000ff]False[/COLOR] coloque OpenAfterPublish:=[COLOR=#0000ff]True[/COLOR][/user][/QUOTE]

Eu n&atilde;o quero abrir direto, eu quero dar a op&ccedil;&atilde;o da pessoa abrir o pdf gerado. Mostrar na caixa de Texto o caminho onde o PDF foi criado e ao clicar no bor&atilde;o abrir o diret&oacute;rio. Achei um v&iacute;deo que o rapaz ensina, mas ele usa formul&aacute;rio, mas eu quero fazer isso dentro da planilha.

Dessa forma atende, mas n&atilde;o era exatamente o que eu gostaria.

Answer

[QUOTE=Playboy, post: 8489463, member: 669]...eu quero dar a op&ccedil;&atilde;o da pessoa abrir o pdf gerado.[/QUOTE]

Sub cria_arquivo_pdf()
Range(B3:N35).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & \ & Or&ccedil;amento -  & Range(Nome_Cliente) & .pdf, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=False
ActiveSheet.Txt_Caminho.Text = ActiveWorkbook.Path & \ & Or&ccedil;amento -  & Range(Nome_Cliente) & .pdf
End Sub

Private Sub Cmd_Abrir_Click()
ActiveWorkbook.FollowHyperlink ActiveSheet.Txt_Caminho.Text
End Sub

Ferramentas

Mover Tópico