Code to Print single cells

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

ianmacinnis@gmail.com - 13 Sep 2007 17:57 GMT

I need help with code to print single cells?? We have a spreadsheet
with bar codes and need to print them on labels with one bar code per
label.

Thanks

Reply to this Message

JLGWhiz - 13 Sep 2007 18:38 GMT

Look this up in Excel Help files. It might get you started in the right
direction.

"Print labels by using Excel data in a Word mail merge"

> I need help with code to print single cells?? We have a spreadsheet
> with bar codes and need to print them on labels with one bar code per
> label.
>
> Thanks

Reply to this Message

FSt1 - 13 Sep 2007 18:58 GMT

hi,
try something like this
Sub Printcell()

Dim s As String

s = ActiveCell.Address
Application.DisplayAlerts = False
ActiveSheet.PageSetup.PrintArea = s
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.DisplayAlerts = True
End Sub

regards
FSt1

> I need help with code to print single cells?? We have a spreadsheet
> with bar codes and need to print them on labels with one bar code per
> label.
>
> Thanks

Reply to this Message