Dicas  Excel Macros VBA

Imprimir 4 copias de um determinado documento via vba
Pergunta:
Gostaria de saber como faço para fazer 4 copias de a impressão através do vba com macros é possível ?

Resposta:
É possível sim,

Sub Imprimir4vezespag1()
Dim ImprimanteParDefaut As String
ImprimanteParDefaut = Application.ActivePrinter
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=4, Collate:=True

'Application.ActivePrinter = "Brother HL-7050 Magasin sur Ne12:"
'ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True


' on remet l'imprimante par défaut
Application.ActivePrinter = ImprimanteParDefaut
End Sub