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: 181
Registrado em: Qua Mai 12, 2010 12:24 am
Has thanked: 9 times
Have thanks: 2 times

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: 181
Registrado em: Qua Mai 12, 2010 12:24 am
Has thanked: 9 times
Have thanks: 2 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

e-mail : mauro@planilhando.com.br

Sua Duvida foi resolvida Adicione [RESOLVIDO] ao título. e agradeça aqueles que voluntariamente ajudaram clicando na mãozinha ao lado
Ficou satisfeito? Indique aos colegas !
Avatar do usuário
Mauro Coutinho
Ninja do Excel
Ninja do Excel
 
Mensagens: 2546
Registrado em: Sex Mar 26, 2010 9:24 pm
Localização: São José dos Pinhais - Pr
Has thanked: 79 times
Have thanks: 754 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: 181
Registrado em: Qua Mai 12, 2010 12:24 am
Has thanked: 9 times
Have thanks: 2 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

e-mail : mauro@planilhando.com.br

Sua Duvida foi resolvida Adicione [RESOLVIDO] ao título. e agradeça aqueles que voluntariamente ajudaram clicando na mãozinha ao lado
Ficou satisfeito? Indique aos colegas !
Avatar do usuário
Mauro Coutinho
Ninja do Excel
Ninja do Excel
 
Mensagens: 2546
Registrado em: Sex Mar 26, 2010 9:24 pm
Localização: São José dos Pinhais - Pr
Has thanked: 79 times
Have thanks: 754 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
Avatar do usuário
alexandrevba
Membro
Membro
 
Mensagens: 7095
Registrado em: Dom Jul 03, 2011 7:45 pm
Localização: Serra - ES
Has thanked: 0 time
Have thanks: 1894 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 6 visitantes