Ola bom dia
Este exemplo acredito que pode ti ajudar. Imprimi toda a planilha e seleção, alterando a configuração para imprimir seleção.

Sub Imprimir_Seleção()
If MsgBox("Imprimir Somente a Área Selecionada com o Mause, Deseja Prosseguir? ", vbQuestion + vbYesNo) = vbYes Then
Application.ScreenUpdating = False
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$2" 'AQUI É O CABEÇALHO JA DEFINIDO, CASO NÃO QUEIRA É SO RETIRA ESTE BLOCO
.PrintTitleColumns = ""
End With
On Error Resume Next
Application.PrintCommunication = True
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalView
MsgBox "CONFIGURAR IMPRESSORA PARA IMPRIMIR SELEÇÃO E MARGEM"
SendKeys "^{p}", True 'comando ctrl + p
End If
End Sub

Vc também pode implementar na macro para configurar cabeçalho, zoom, rodapé e orientação, excel 2010

Também,

Sub Imprimir()
Range("a10:L" & Range("L" & Cells.Rows.Count).End(xlUp).Row).Select
SendKeys "^{p}", True 'comando ctrl + p
End Sub

Também,

Sub Imprimir()
Range("a10:L" & Range("L" & Cells.Rows.Count).End(xlUp).Row).Select
SendKeys "^{p}", True 'comando ctrl + p
End Sub

Miguel Mto Obrigado pelas respostas, todas deram certo. Deus Abençoe Grandemente!!!
Mais uma vez, Mto Obrigado msm!!!