1004 Problem when printing an Excel Form

Question

I have the following code to select 1 or more rows from a worksheet and for each row it populates a form and then prints it.
The code includes the following in the sub below;
If RowN > 2 Then
    PrintMRSS_Click
End If
If I run it on Excel 2013 works OK. If I run it on excel 2007 it will print the first form, but it fails with 1004 and other errors when it executes the following line when printing the second and subsequent forms.
Any help would be much appreciated
 ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False
If I comment the lines out and use the option of having to click on the PrintMRSS button all the required data prints OK
Private Sub GetData()
If RowN > RowMP Then
    Unload Me
    Menu.Show
    Exit Sub
End If
Me.MRSSLookup.Caption = "Marine Rescue Sydney - MRSS Vessel Information as at " & Format(Now(), "dd mmm yyyy")
OpenDataWB
Sheets("Renewals").Activate
Me.DMRSSID.Caption = Cells(RowN, 1)
Me.DNAME.Caption = Cells(RowN, 2)
Me.DREGISTRATION.Caption = Cells(RowN, 3)
Me.DMAKE.Caption = Cells(RowN, 4)
Me.DTYPE.Caption = Cells(RowN, 5)
Me.DMATERIAL.Caption = Cells(RowN, 6)
Me.DHULLCOLOUR.Caption = Cells(RowN, 7)
Me.DSUPERSTRUCTURECOLOUR.Caption = Cells(RowN, 8)
Me.DLENGTH.Caption = Cells(RowN, 9)
Me.DBEAM.Caption = Cells(RowN, 10)
Me.D27MHZ.Caption = Cells(RowN, 11)
Me.DVHF.Caption = Cells(RowN, 12)
Me.DMFHF.Caption = Cells(RowN, 13)
Me.D406EPIRB.Caption = Cells(RowN, 14)
Me.DEPIRBNUMBER.Caption = Cells(RowN, 15)
Me.DEPIRBGPS.Caption = Cells(RowN, 16)
Me.DMMSINUMBER.Caption = Cells(RowN, 17)
Me.DSAILNUMBER.Caption = Cells(RowN, 18)
Me.DMOTOR.Caption = Cells(RowN, 19)
Me.DFUEL.Caption = Cells(RowN, 20)
Me.DEMERGENCY.Caption = Cells(RowN, 21)
Me.DMOORINGRAMP.Caption = Cells(RowN, 23)
Me.DCONTACTNAME.Caption = Cells(RowN, 24)
Me.DCONTACTNUMBER.Caption = Cells(RowN, 25)
Me.DOWNERSNAME.Caption = Cells(RowN, 27) & " " & Cells(RowN, 26)
Me.DHOMEPHONE.Caption = Cells(RowN, 31)
Me.DWORKPHONE.Caption = Cells(RowN, 32)
Me.DMOBILEPHONE.Caption = Cells(RowN, 33)
Me.DEMAIL.Caption = Cells(RowN, 34)
Me.DCARREGO.Caption = Cells(RowN, 35)
Me.DTRAILREGO.Caption = Cells(RowN, 36)
Me.DPHOTO.Caption = Cells(RowN, 37)
Me.DHP.Caption = Cells(RowN, 40)
Me.DAUXENGINE = Cells(RowN, 41)
Me.DAUXHP = Cells(RowN, 42)
Me.DAUXFUEL = Cells(RowN, 43)
Me.DVHFDSC.Caption = Cells(RowN, 44)
Me.DMFHFDSC.Caption = Cells(RowN, 45)
CloseDataWB
If RowN > 2 Then
    PrintMRSS_Click
End If
End Sub
Private Sub PrintMRSSForm()
 DoEvents
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + _
        KEYEVENTF_KEYUP, 0
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + _
        KEYEVENTF_KEYUP, 0
    Application.Wait Now + TimeValue("00:00:05")
    DoEvents
    Workbooks.Add
    'Application.Wait Now + TimeValue("00:00:02")
    ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False
    ActiveSheet.Range("A1").Select
    'added to force landscape
    ActiveSheet.PageSetup.Orientation = xlLandscape
With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    ActiveWorkbook.Close False
End Sub     

Answer 1

Thanks for the reply. I have tried to explain the issue more fully below.
The code below calls the form to be populated:
Private Sub PrintMRSS_Click()
OpenDataWB
Application.Visible = False
Application.ScreenUpdating = False
Sheets("Renewals").Activate
RowMP = ActiveSheet.UsedRange.Rows.Count
CloseDataWB
RowN = 2
Unload Me
VesselLookup.Show
End Sub
Then when the form is opened the following code is executed;
Private Sub UserForm_Initialize()
GetData
End Sub
I also have the following code to emulate an alt + PrtScn keyboard event
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12
Private Const VK_LMENU = &HA4
getdata populates the form and then calls Sub PrintMRSS  to emulate the Alt+ PrtScn, create a new workbook, paste the clipboard to the active worksheet , set up the page layout etc and then print the form.
After printing the form the getdata sub checks if another row of data needs to be printed and then populates the form then prints it, or exits when all the rows in the worksheet have been printed.
All works OK using excel 2013 (Win 8.1), but fails when run on Excel 2007 (Win 7) with  1004 error when the ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False code is executed.
If I remove the code
If RowN > 2 Then
    PrintMRSS_Click
End If
from the getdata sub all the forms print, but you must click on the Print Form button each time.
Hope that makes it clearer