Why is my first print, printing out twice but the remaining are ok with a single copy of the prints?

[Georgem106]

Please review my code (Very new to VBA) and let me know why i get 2 copies of the first print then the rest come out ok with a single printed copy?

I have created a Print command button and this is the associated code.

[Private Sub PrintAll_Click()

Dim rngOffenders As Range
Set rngOffenders = Worksheets("Names").Range("A2", Worksheets("Names").Range("A2").End(xlDown))

Dim willPrint As Boolean
willPrint = Application.Dialogs(xlDialogPrint).Show
If Not willPrint Then Exit Sub

Dim rng As Range
For Each rng In rngOffenders.Cells
Worksheets("Template").Range("LastName").Value = rng.Value
Calculate
Worksheets("Template").PrintOut
Next rng


End Sub]

Thank you in advance.