3 macros em um botão

[ribeiroxd]

Olá, boa noite! 

Poderiam me ajudar como faço para juntar estas 3 funções em apenas um botão? e gostaria que quando salvasse em pdf  NÃO abrisse o documento para visualização, pois isso atrasa o andamento dos pedidos.  Segue uma imagem de como é atualmente a interface e o código 

 

 

Macro --> 

 

Sub novopedido()
'
' novopedido Macro
'

'
    Range("C6:E6,C7:E7,C8,E8,C9:E9,B12:D27").Select
    Range("B12").Activate
    Selection.ClearContents
    Selection.ClearContents
    Range("C6:E6").Select
End Sub

 

Sub imprimirpedido()
'
' imprimirpedido Macro
'

'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Range("C6:E6").Select
End Sub

 

 

Sub salvarpedido()
'
' Macro3 Macro
'

'

NF = Range("NomeDataPdf")

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

[CasaDoHardware]

Nao testei seus codigos so ajustei

 

 

Troque os 3 por este

 

Sub SalvarPedido()

NF = Range("NomeDataPdf")

ActiveSheet.PrintOut
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NF
Range("C6:E6,C7:E7,C8,E8,C9:E9,B12:D27").ClearContents
Range("C6").Select

End Sub

[ribeiroxd]

Nossa! funcionou perfeitamente, obrigado de verdade cara!! 

 

Só mais uma coisinha, seria possível especificar a pasta que vai o arquivo? e por exemplo, todo dia que a data for diferente, ele criar uma pasta para cada dia? e já se auto-organizar? acho que esta ultima função não ne?