I am using this Macro to print a row in an excel sheet.
Option Explicit
Sub Select_Any_Cell_To_Print_That_Row()
Application.ScreenUpdating = False
With ActiveSheet
.PageSetup.PrintArea = Cells(Selection.Row, 1).Resize(, Cells(Selection.Row, Columns.Count).End(xlToLeft).Column).Address
.PrintOut
End With
Application.ScreenUpdating = True
End Sub
I am printing to a small 3.5"x2.5" sticker so the print out of the row is quite small. I am looking for help on printing the one row where the output is two rows so the wording is larger on the printout. Hope this makes sense.
Bookmarks