SPEED UP???

[julxl]

Hi,

any suggestion to speed this code up?

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False

Sheets("Invoice").PageSetup.PrintArea = ("A1:H58")

Sheets("Invoice").PageSetup.RightFooter = "Customer Copy"
Sheets("Invoice").PrintOut

Sheets("Invoice").PageSetup.RightFooter = "EAT Copy - Sales "
Sheets("Invoice").PrintOut

Sheets("Invoice").PageSetup.RightFooter = "EAT Copy - Account "
Sheets("Invoice").PrintOut

Sheets("DeliveryOrder").PageSetup.PrintArea = ("A1:G56")

Sheets("DeliveryOrder").PageSetup.RightFooter = "EAT Copy - Sales "
Sheets("DeliveryOrder").PrintOut

Sheets("DeliveryOrder").PageSetup.RightFooter = "Customer Copy"
Sheets("DeliveryOrder").PrintOut

Application.ScreenUpdating = True

End Sub

normally it would take 40seconds , thanks in advance

 

[Lewiy]

Can't see much you can do to that to be honest. This is just a little tidy up:

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
With Sheets("Invoice")
    .PageSetup.PrintArea = ("A1:H58")
    .PageSetup.RightFooter = "Customer Copy"
    .PrintOut
    .PageSetup.RightFooter = "EAT Copy - Sales "
    .PrintOut
    .PageSetup.RightFooter = "EAT Copy - Account "
    .PrintOut
End With
With Sheets("DeliveryOrder")
    .PageSetup.PrintArea = ("A1:G56")
    .PageSetup.RightFooter = "EAT Copy - Sales "
    .PrintOut
    .PageSetup.RightFooter = "Customer Copy"
    .PrintOut
End With
Application.ScreenUpdating = True
End Sub

 

[julxl]

thanks