Possible Macro to read and change name whilst printing certificate

excelledsoftware · #1 09-05-2014, 02:54 PM

No problem,

With a code that is going to automatically print out 29+ reports you will want to tap through it with F8 while you see how and if it works.

Give this a try and let us know how it works.

Code:

Option Explicit
Sub ChangeNameThenPrint()
  Dim wb As Workbook, cws As Worksheet, nws As Worksheet
  Dim CheckRow As Integer, TotalNames As Integer

  Set wb = ThisWorkbook
  Set cws = wb.Worksheets("Certificate")
  Set nws = wb.Worksheets("Names")

  TotalNames = nws.Range("A50000").End(xlUp).Row
    
  For CheckRow = 1 To TotalNames
    cws.Range("B42").Value = nws.Range("A" & CheckRow).Value
    cws.PrintOut  'You can set specific printer properties with a ( after Printout
  Next CheckRow

End Sub

DaZ · #2 09-06-2014, 09:47 AM

This worked great thank you

Just 1 more thing is it possible to list all names and add a filter so I can just filter out the names I need to print?

Thanks again much appreciated

Quote:

Originally Posted by excelledsoftware

No problem,

With a code that is going to automatically print out 29+ reports you will want to tap through it with F8 while you see how and if it works.

Give this a try and let us know how it works.

Code:

Option Explicit
Sub ChangeNameThenPrint()
  Dim wb As Workbook, cws As Worksheet, nws As Worksheet
  Dim CheckRow As Integer, TotalNames As Integer

  Set wb = ThisWorkbook
  Set cws = wb.Worksheets("Certificate")
  Set nws = wb.Worksheets("Names")

  TotalNames = nws.Range("A50000").End(xlUp).Row
    
  For CheckRow = 1 To TotalNames
    cws.Range("B42").Value = nws.Range("A" & CheckRow).Value
    cws.PrintOut  'You can set specific printer properties with a ( after Printout
  Next CheckRow

End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Sharing a notebook whilst restricting pages	Tom1	OneNote	1	08-12-2014 04:27 AM
Email macro to read range for .To field	MattMurdock	Excel Programming	2	08-07-2012 06:46 AM
Macro to read word document	harishankar.selvaraju	Excel Programming	1	06-14-2012 03:48 AM
Bold numerals whilst typing normally!	ianl1532	Word	2	02-20-2012 10:20 PM
Change personal folder items to 'read"	J C M	Outlook	1	01-09-2012 10:42 AM