MACRO PARA GERAR VISUALIZAÇÃO/IMPRESSÃO

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

MACRO PARA GERAR VISUALIZAÇÃO/IMPRESSÃO

Mensagempor JPerez » Qui Mai 13, 2010 1:39 pm

Amigos
boa tarde

Possuo um arquivo com 10 planilhas.

fiz uma gravação de macro para gerar arquivo PDF da planilha que desejo, porem a mesma grava em cima do mesmo arquivo que desejo, ficando o mesmo nome.... cada vez que clico no botão ou no atalho da macro ela salva automaticamento no mesmo nome do arquivo e não tem a possibilidade de aterar o nome.

Teria alguma forma ou macro para ao clicar no botão ele informar o local a ser salvo e nome do arquivo, ou seja, apareça a opção salvar como?

abraços
JPerez
Membro
Membro
 
Mensagens: 226
Registrado em: Qua Mai 12, 2010 12:24 am
Has thanked: 25 times
Have thanks: 4 times

{ SO_SELECT }

Share on Facebook Facebook

Re: MACRO PARA GERAR VISUALIZAÇÃO/IMPRESSÃO

Mensagempor JPerez » Ter Mai 18, 2010 11:33 am

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Relatório\ - Relatório " & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub


A macro acima gera a o PDF que espero, porem subscreve quando salvo novamente
como faria para salvar com o nomes variaveis, por exemplo da celula a18?

abraços
JPerez
Membro
Membro
 
Mensagens: 226
Registrado em: Qua Mai 12, 2010 12:24 am
Has thanked: 25 times
Have thanks: 4 times

Re: MACRO PARA GERAR VISUALIZAÇÃO/IMPRESSÃO

Mensagempor Mauro Coutinho » Qui Mai 20, 2010 12:15 am

Para pegar o nome em A18 e Salvar, faça as alterações abaixo:

Dim NovoNome As String
NovoNome = Worksheets(1).Range("A18")


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Relatório\ - Relatório " &
NovoNome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False



abraços
Mauro Coutinho
São José dos Pinhais-Pr


Se a resposta foi últil para você, por gentileza, clique na mãozinha ao lado direito da sua tela. No canto superior.
Avatar do usuário
Mauro Coutinho
Ninja do Excel
Ninja do Excel
 
Mensagens: 3696
Registrado em: Sex Mar 26, 2010 9:24 pm
Localização: São José dos Pinhais - Pr
Has thanked: 156 times
Have thanks: 1280 times

Re: MACRO PARA GERAR VISUALIZAÇÃO/IMPRESSÃO

Mensagempor JPerez » Qui Mai 20, 2010 9:47 am

Amigo

Obrigado pela ajuda, porem ele salva e so aparece o nome - Relatório.

alguma ideia?

abraços
JPerez
Membro
Membro
 
Mensagens: 226
Registrado em: Qua Mai 12, 2010 12:24 am
Has thanked: 25 times
Have thanks: 4 times

Re: MACRO PARA GERAR VISUALIZAÇÃO/IMPRESSÃO

Mensagempor Mauro Coutinho » Qui Mai 20, 2010 8:23 pm

Tente assim :

Código: Selecionar todos
Sub ExportPDF()
Dim NovoNome As String

NovoNome = "D:\Relatorio\" & "- Relatorio " & _
ActiveSheet.Range("A18").Value & ".pdf"

    ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=NovoNome, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

End Sub


abraços
Mauro Coutinho
São José dos Pinhais-Pr


Se a resposta foi últil para você, por gentileza, clique na mãozinha ao lado direito da sua tela. No canto superior.
Avatar do usuário
Mauro Coutinho
Ninja do Excel
Ninja do Excel
 
Mensagens: 3696
Registrado em: Sex Mar 26, 2010 9:24 pm
Localização: São José dos Pinhais - Pr
Has thanked: 156 times
Have thanks: 1280 times

Re: MACRO PARA GERAR VISUALIZAÇÃO/IMPRESSÃO

Mensagempor Ruan » Sex Jan 13, 2012 12:50 am

Olá!

Estou fazendo planilha que vai ser usada em outro computador. Computador que não vou ter acesso. Dessa forma quero que esta
macro possa ler o nome do computador sem que programe a macro com o nome do computador.
A macro é para gerar e salvar a planilha em PDF.

Consegui esta fórmula para gerar a planilha em pdf, onde estar o X é o nome do computador que é preciso para que funcione a macro

Private Sub CommandButton2_Click()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\X\Desktop\ESCOLA.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

Tentei fazer sem o nome dá máquina mas a macro não funcionou
Ex: "C:\Users\..\Desktop\ESCOLA.pdf", _


É isso pessoal
Ruan
Membro
Membro
 
Mensagens: 1
Registrado em: Sex Jan 13, 2012 12:12 am
Has thanked: 0 time
Have thanks: 0 time

Re: MACRO PARA GERAR VISUALIZAÇÃO/IMPRESSÃO

Mensagempor alexandrevba » Sex Jan 13, 2012 8:25 am

Bom dia!!

Rua, talvez isso possa te ajudar.

Não foi testado nem adaptado a sua necessidade.

Fonte:http://www.mrexcel.com/forum/showthread.php?t=50786
Veja também..www.xl-logic.com:
Código: Selecionar todos
Private Declare Function GetComputerName Lib "kernel32" _
        Alias "GetComputerNameA" ( _
        ByVal lpBuffer As String, _
        ByRef nSize As Long) As Long

Public Property Get ComputerName() As String

  Dim stBuff As String * 255, lAPIResult As Long
  Dim lBuffLen As Long
 
  lBuffLen = 255
 
  lAPIResult = GetComputerName(stBuff, lBuffLen)
 
  If lBuffLen > 0 Then ComputerName = Left(stBuff, lBuffLen)

End Property
Public Function CompName() as string
  CompName = ComputerName
end Function


Att..
Espero ter Ajudado.
Se a mensagem foi util Favor Clicar na mãozinha.
Quando necessário, lembre se de marcar o tópico como [RESOLVIDO].
Membro
Visite:
http://gurudoexcel.com
Avatar do usuário
alexandrevba
Membro
Membro
 
Mensagens: 9117
Registrado em: Dom Jul 03, 2011 7:45 pm
Localização: Serra - ES
Has thanked: 0 time
Have thanks: 2553 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante