Notifications
Clear all

Escolher impressora

2 Posts
2 Usuários
0 Reactions
1,155 Visualizações
(@patrikcbj)
Posts: 1
New Member
Topic starter
 

Pessoal, preciso de uma ajuda. Quando clico num botão salvar que coloquei numa planilha, é gerado um PDF e salvo numa pasta específica. Porém este PDF muda as margens de acordo com a impressora padrão, no entanto, eu gostaria que isso não ocorresse e que o Excel não enxergasse nenhuma impressora, ou então, que enxergasse o Microsoft XPS Documente Writer como impressora, pois assim as margens do PDF não se alterariam. Há possibilidade de isso ser feito automaticamente ao abrir a planilha ou ao clicar em qualquer célula da planilha?

Muito Obrigado.

 
Postado : 17/03/2020 6:27 am
carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
 

Boa tarde, tenta adaptar esse código.

'       Salvando em PDF.
    Dim NovoNome As String
    NovoNome = "G:CONTABILIDADECARLOS RAFAEL11 - Finame" & Planilha01.[B11] & "" & Planilha01.[B13] & ".pdf"
    ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=NovoNome, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

No NovoNome, vc coloca o endereço junto com o nome que deseja salvar!

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 17/03/2020 12:18 pm