Hi guys bear with me!!!!

C

Cobbcouk

Hi,
I will try and explain as best I can. I have a speadsheet that is mor
akin to a database table. It is quite large and has been designed fo
2000 records (rows). It has an autofilter on the top row which is use
to sort records for information purposes. The spreadsheet is basicall
your standard employee database with staff numbers, names, addresses
and other work type info.

Here is what I want to do. I would like to be able to use a macro s
that at a touch of a button a sheet pops out the printer with the inf
I want. I have a format for the info to go into and I can do all th
other bits however; I do not know how to only copy ONLY the filtere
cells containing text. Because there is no standard amount of rows
end up with 180+ pages of blank poping out of the printer.

Is ther some way so that when I use a filter or custom view/sort, I ca
copy only certain columns of info and only the rows that contai
information.

I am sorry if I have not explained this very well but I would b
grateful for and help.

Regards
 
F

Francois via OfficeKB.com

Cobbcouk said:
Hi,
I will try and explain as best I can. I have a speadsheet that is mor
akin to a database table. It is quite large and has been designed fo
2000 records (rows). It has an autofilter on the top row which is use
to sort records for information purposes. The spreadsheet is basicall
your standard employee database with staff numbers, names, addresses
and other work type info.

Here is what I want to do. I would like to be able to use a macro s
that at a touch of a button a sheet pops out the printer with the inf
I want. I have a format for the info to go into and I can do all th
other bits however; I do not know how to only copy ONLY the filtere
cells containing text. Because there is no standard amount of rows
end up with 180+ pages of blank poping out of the printer.

Is ther some way so that when I use a filter or custom view/sort, I ca
copy only certain columns of info and only the rows that contai
information.

I am sorry if I have not explained this very well but I would b
grateful for and help.

Regards
Click to expand...

Play around with this:-

Range("B5").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PrintOut Copies:=1, Collate:=True
Range("B5").Select
End Sub

Assuming your data starts in cell B5

Good luck
 
Top