Printing Worksheets thru VBA

A

abxy

Hi all,
I'm creating a UserForm, and I'm trying to code a command button that
will print a sheet from another workbook.

I'm wondering though, what code can I add so that if cell A1 has data
in it, it will print sheet1 of the other workbook.

If A2 has data in it, it will print sheet2 of the other workbook, but
not sheet1, despite the fact that A1 has data in it.

If A3 has data in it, it will print sheet3 of the other workbook, but
not sheet1 or sheet2 despite the fact that they have data in them. and
so on...

In a nutshell, I just want to print the corresponding sheet in the
other workbook for the last cell of data only in column A...if that
makes sense.

Thanks in Advance for all your help.
 
B

Bob Phillips

Something like this

If Activesheet.Range("A3") <> "" Then
Worksheets(3).Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ElseIf Activesheet.Range("A2") <> "" Then
Worksheets(2).Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ElseIf Activesheet.Range("A1") <> "" Then
Worksheets(1).Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
A

abxy

Thanks a lot, just looking at the code, I think this will work, after
modify it for my particular situation of course, but anyhoo, I just go
off work and i'm a bit tired, i'll try this out as soon as I get in th
morning. I'll post again on this thread to let you know my results.
can't thankyou enough. I don't think i would have ever thought o
anything in that manner...i'm a newbie to VBA, i'm slowly grasping i
though.

In the meantime, if anyone else has any alternative suggestions o
anything of the sort, let me know.

Thanks again Bob Phillips! :
 
A

abxy

Modified the code a bit to satisfy my particular situation, and it work
great! Thanks a lot Bob Phillips. I couldn't have done it without you
help!

Thanks a lot mate! :
 
Top