Using J1.value to print single label

[Gordy99]

I use sheet code to put row number in J1.
I would like to print a single label using the row number in J1 to print
Column B, C, D, E, in a different section of the sheet.

You have helped me before so I know it is child's play for some of you.
gordyb99

 

[RyanH]

If I understand you correctly you want to print Col B. thru Col. E on which
every row number is specified in Cell J1, right? If so this will do it.

Sub PrintLabel()

Dim myRange As Range

Set myRange = Sheets("Sheet1").Range(Cells(Range("J1"), 2),
Cells(Range("J1"), 5))

myRange.PrintOut

End Sub

Hope this helps

 

[Gordy99]

Sub PrintSingleLabel()
'
' PrintSingleLabel Macro
'
' Keyboard Shortcut: Ctrl+z
'
Dim myRange As Range

Set myRange = Sheets("Database").Range(Cells(Range("J1"), 2),
Cells(Range("J1"), 8))

myRange.PrintPreview

End Sub

Thanks RyanH. Now I have to get it to Char13 after each of the 8 fields.
Right now it prints out as one long string with spaces.
Gordy

 

[RyanH]

I'm not sure what you mean by "Char13" and after "the 8 fields"? If there is
something else you are needing please be more specific and I will do my best
to help.

It doesn't actually print it out as one long string. It prints the 4 cells
you requested. The cells just happen to be larger than the numbers so you
get spacing. Draw some borders around them.

 

[Gordy99]

Char13 refers to a Return so that I can make it look like a Label.