Avoid printing blank columns

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi all! First time post to the newsgroup, but I've used the suggestions posted here many, many times to help me with Excel troubles. I'm not a programmer, but sometimes I copy and paste code to help me solve my problems. Not sure if this is the proper newsgroup to introduce this thread, so my apologies if it isn't

I'm a teacher/tech coordinator and I'm trying to design a very user-friendly gradesheet for teachers. I've modified a template downloaded from Microsoft, and I would like to include a command button which produces a printable page of everything EXCEPT blank columns in a certain range

Gradesheet looks something like this

A17-E17 includes Student names, Average, etc

F17+ is comprised of assignments/tests

The # of columns with data will constantly be changing. Any help would be appreciated.

BTW, excellent newsgroup. Thanks for ALL the help you've inadvertently given me
 
robbyn;

Try the sub

Sub try()

Range("A1").Select
Selection.CurrentRegion.Select
Selection.PrintOut Copies:=1, Collate:=True
End Sub

Thanks,

Greg


-----Original Message-----
Hi all! First time post to the newsgroup, but I've used
Click to expand...
the suggestions posted here many, many times to help me
with Excel troubles. I'm not a programmer, but sometimes
I copy and paste code to help me solve my problems. Not
sure if this is the proper newsgroup to introduce this
thread, so my apologies if it isn't.
I'm a teacher/tech coordinator and I'm trying to design a
Click to expand...
very user-friendly gradesheet for teachers. I've modified
a template downloaded from Microsoft, and I would like to
include a command button which produces a printable page
of everything EXCEPT blank columns in a certain range.
 
try this. modify to suit.

Sub hidecolsandprint()
For Each c In Range("a1:i1")
If Application.CountA(c.EntireColumn) = 0 Then _
c.EntireColumn.Hidden = True
Next
ActiveSheet.PrintPreview
Columns("a:i").Hidden = False
End Sub


--
Don Guillett
SalesAid Software
(e-mail address removed)
Robbyn said:
Hi all! First time post to the newsgroup, but I've used the suggestions
Click to expand...
posted here many, many times to help me with Excel troubles. I'm not a
programmer, but sometimes I copy and paste code to help me solve my
problems. Not sure if this is the proper newsgroup to introduce this
thread, so my apologies if it isn't.
I'm a teacher/tech coordinator and I'm trying to design a very
Click to expand...
user-friendly gradesheet for teachers. I've modified a template downloaded
from Microsoft, and I would like to include a command button which produces
a printable page of everything EXCEPT blank columns in a certain range.
 
Did you test to see if columns beyond the blank columns printed?
BTW, your code could be

Range("A1").CurrentRegion.Printout
 
Thank you both for your quick response. Both the print preview (Don's code) and the automatic print (Greg's code) worked, but neither hid the columns. I reproduced what you both did on a new "practice" sheet, and they both worked great. I'm wondering if the problem on my gradesheet is that the bottom rows contain formulas for calculating class averages, as well as min./max scores for each assignment? I tried both codes on a "clean" gradesheet template from Microsoft. They both worked on one that had no formulas at the end of the sheet, but not the other

A1:AH - Student names, averages, assignments, etc

A60-63:AH60-63 - Class summary inf
 
I'm wondering if the problem on my gradesheet is that the bottom rows
contain formulas

Your original request did say BLANK columns. Restate your request with what
you really want. Where is the bottom row?

I don't understand these ranges. Perhaps you could explain.
A1:AH - Student names, averages, assignments, etc.
A60-63:AH60-63 - Class summary info
Click to expand...

--
Don Guillett
SalesAid Software
(e-mail address removed)
Robbyn said:
Thank you both for your quick response. Both the print preview (Don's
Click to expand...
code) and the automatic print (Greg's code) worked, but neither hid the
columns. I reproduced what you both did on a new "practice" sheet, and they
both worked great. I'm wondering if the problem on my gradesheet is that
the bottom rows contain formulas for calculating class averages, as well as
min./max scores for each assignment? I tried both codes on a "clean"
gradesheet template from Microsoft. They both worked on one that had no
formulas at the end of the sheet, but not the other.
 
Ok Don, here we go.

A17 B17 C17 D17 - AH17

Student Name Average TotalPoints Assignments
-
-
- (Rows)
-
-
-

ClassSummary
Average - - -
MaxScore - - - (lines indicate a formula for calculating Class summaryinfo
MinScore - - - for each assignment)


Thank you again!
 
I still don't understand your need. I guess you need to send me a small
workbook with a DETAILED explanation. Getting old you know.

--
Don Guillett
SalesAid Software
(e-mail address removed)
Robbyn said:
Ok Don, here we go.

A17 B17 C17 D17 - AH17

Student Name Average TotalPoints Assignments
-
-
- (Rows)
-
-
-

ClassSummary
Average - - -
MaxScore - - -
Click to expand...
(lines indicate a formula for calculating Class summaryinfo
 
Sent to the email address listed under your sig. Sent again using my other email account - the school email is twitchy.
 
got it

--
Don Guillett
SalesAid Software
(e-mail address removed)
Robbyn said:
Sent to the email address listed under your sig. Sent again using my
Click to expand...
other email account - the school email is twitchy.
 
Back
Top