Sub NR_18_2()
'Sub Criar_PDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Relatório de Vendas", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
' NR_18_2 Macro
'
'
Sheets("NR 18").Select
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Sheets("LANÇAMENTOS").Select
End Sub
SALVA PDF E IMRIME PAGINA 2
Sub NR_18_2()
'Sub Criar_PDF()
Sheets("NR 18").Select
ActiveSheet.ExportAsFixedFormat From:=2, To:=2, Type:=xlTypePDF, Filename:="Relatório
de Vendas", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
' NR_18_2 Macro
'
'
Sheets("NR 18").Select
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Sheets("LANÇAMENTOS").Select
End Sub