Populate Form & Print From Datasource

[SalientAnimal]

Hi All,

I need some help with a Marco that will make the printing of a form a bit easier. I have a data source which has +/- 100 users on it. Each user has a unique serial codes that need to be populated on a form.

Is there a macro that can be used to take the information from all the columns, populate this information into the relevant fields on the form and to print it? Once the one is done, to then move onto the next?

Any help here is appreciated.

[SalientAnimal]

Solution found

Function RangeName(sName As String) As String
    RangeName = Application.Substitute(sName, " ", "_")
End Function
Sub MergePrint()
'set up your merge form by naming the merge fields _
 with the same name as the data fields you are importing.
'if any data field contains spaces, then substitute an _
 UNDERSCORE character for each space in the name.
    Dim wsForm As Worksheet, wsData As Worksheet
    Dim sRngName As String, r As Long, c As Integer
    Set wsForm = Worksheets("form") 'change to your sheet name
    Set wsData = Worksheets("datadetails") 'change to your sheet name
    With wsData.Cells(1, 1).CurrentRegion
        For r = 2 To .Rows.Count
            If Not wsData.Cells(r, 1).EntireRow.Hidden Then
                For c = 1 To .Columns.Count
                    sRngName = wsData.Cells(1, c).Value
                    Range(RangeName(sRngName)).Value = wsData.Cells(r, c)
                Next
                wsForm.PrintOut
            End If
        Next
    End With
End Sub