Pull data from one sheet to another sheet

[gokulu]

Dear All,

Please find below mentioned VBA code.I tried to take printout of the employees name in certificate.Name are mentioned in workers sheet and certificate format is in Worker_Certificate sheet.

Private Sub CommandButton1_Click()


x = 2


Sheets("Workers").Range("B" & x).Copy
Sheets("Worker_Certificate").Range("F9").PasteSpecial Paste:=xlPasteValues


Application.Dialogs(xlDialogPrint).Show
Sheets("Worker_Certificate").Range("D5:J83").PrintOut


End Sub

== the problem is i am getting the printout two copies,Even i have selected one copy in print dialog box.Kindly help...