Printing individual forms from a table

[dwbdwb]

I have set up an excel spreadsheet. I have then created a form (i need people to physically sign off the content of each row) on another sheet which I have used lookup based on an item code. What I want to do to get a macro or something to sequentially go down the spreadsheet and change the items code to that it prints out an individual form for each row.

Anyone got any ideas.

Thank you

[TMS]

Why don't you use MS Word Mail Merge to "Letters" using your Excel spreadsheet as the source document.

I would think that's much easier than developing and maintaining VBA code.

Regards, TMS

[dwbdwb]

Thanks for this may need to revert to this but would prefer to use VBA

[royUK]

I've posted code to do this in the past, you need to attach a dummy workbook.

[dwbdwb]

Thanks for this will create a dummy workbook if that is OK and send it over

Thanks DWB

[dwbdwb]

Test Log1.xls

Please find attachment I hope it make sense

DWB

[royUK]

Try this

Option Explicit

Sub AutoShape1_Click()
    Dim rCl As Range
    Dim rRng As Range
    With Sheets("Data")
        Set rRng = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
        For Each rCl In rRng
            With Sheets("Form")
                .Cells(6, 3).Value = rCl.Value
                .PrintPreview
                '.PrintOut '<- use when finished testing
            End With
        Next rCl
    End With
End Sub

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste
To run the Excel VBA code:

Choose Tools | Macro | Macros
Select a macro in the list, and click the Run button
Alternatively add a button to the form

[dwbdwb]

Thank you so much!! Works perfectly

Really appreciate it

DWB