- 05 Abr 2019 às 19:02
#42767
Olá boa noite.
Preciso salvar em pdf algumas planilhas com numeração continua de página de acordo com a ordem:
TERMO ABERTURA, PLANO DE CONTAS, LIVRO DIÁRIO, DEMONST FINANCEIRO, NOTAS EXPLICATIVAS, BALANÇO PATRIM, INDICES LIQUIDEZ e TERMO ENCERRAMENTO.
Até ai tudo bem. Porém no Livro Diario existe um filtro, aonde seleciono apenas as celulas com data, excluindo as vazias.
No momento que aciono a macro, ele salvar em pdf todas as planilhas, porém a planilha Livro Diário ele pega toda a area de impressão e não considera o filtro da coluna A.
Está ai a macro:
Se puder ser também uma macro o qual seleciona a impressora "cute pdf" para gerar o pdf, não tem problema.
Grato pela colaboração.
Preciso salvar em pdf algumas planilhas com numeração continua de página de acordo com a ordem:
TERMO ABERTURA, PLANO DE CONTAS, LIVRO DIÁRIO, DEMONST FINANCEIRO, NOTAS EXPLICATIVAS, BALANÇO PATRIM, INDICES LIQUIDEZ e TERMO ENCERRAMENTO.
Até ai tudo bem. Porém no Livro Diario existe um filtro, aonde seleciono apenas as celulas com data, excluindo as vazias.
No momento que aciono a macro, ele salvar em pdf todas as planilhas, porém a planilha Livro Diário ele pega toda a area de impressão e não considera o filtro da coluna A.
Está ai a macro:
Código: Selecionar todos
Preciso de ajuda para adequar essa macro ou fazer uma nova para que ele gere pdf de todas as planilhas citadas acima, considerando o filtro da planilha Livro Diário selecionando somente as linhas visiveis da mesma.CÓDIGO: SELECIONAR TODOS
Sub SalvarPDF()
Sheets(Array("TERMO ABERTURA", "PLANO DE CONTAS", "LIVRO DIÁRIO", _
"DEMONST FINANCEIRO", "NOTAS EXPLICATIVAS", "BALANÇO PATRIM", "INDICES LIQUIDEZ", _
"TERMO ENCERRAMENTO"))SpecialCells(xlCellTypeVisible).Select _
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\TIAGO MARTINELLI\Desktop\LIVRO DIÁRIO.pdf", Quality:= _
xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Se puder ser também uma macro o qual seleciona a impressora "cute pdf" para gerar o pdf, não tem problema.
Grato pela colaboração.