Macros excel para impresion rapida

Tengo este codigo el cual me sirve para imprimir dos hojas por aparte de un docto.

Sub incrementarnumero()
Application.ScreenUpdating = False

Range("F2:I586").Select
ActiveSheet.PageSetup.PrintArea = "$F$2:$I$586"

'ActiveWindow.SelectedSheets.PrintPreview '
PrintOut Copies:=1, Collate:=True, _

ActiveSheet.PageSetup.PrintArea = "$F$2:$I$586"

'ActiveWindow.SelectedSheets.PrintPreview '
PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False
'ActiveWorkbook.Save
Dim respuesta As Variant
respuesta = MsgBox("¿La Impresion fue CORRECTA?", vbYesNo + vbExclamation, "ADVERTENCIA")
If respuesta = vbYes Then
'EM: el mensaje anuncia que se realiza la copia- No hay opciòn x lo tanto no se pregunta
'If MsgBox(" Ahora click al boton NUEVA FACTURA!!! ", vbOKOnly + vbQuestion, "SUGERENCIA") = vbOK Then
MsgBox "A continuación se procede a guardar copia y se prepara la hoja para una NUEVA FACTURA.", , "ATENCION"
Call guardaCopia
ActiveSheet.Unprotect password:="28021990"
Application.ScreenUpdating = False
Columns("A:B").Select
Selection.EntireColumn.Hidden = True
Columns("J:K").Select
Selection.EntireColumn.Hidden = False
Application.ScreenUpdating = False
ActiveSheet.Protect password:="28021990"
'Application.ScreenUpdating = False
End If
Application.ScreenUpdating = False
End Sub

Mi problema es que a la hora de imprimir tarda un poco en lo que saca la primera hoja y la segunda.

Pienso quitando el cuadro de "imprimiendo 1 de 1 etc etc...

¿Se puede quitar o alguna manera de mejorar mi macro? ¿O si es la impresora?