I currently have a series of command buttons that initiate the printing of print areas within a single worksheet.
The issue is that there are in excess of 12 command buttons that is both unappealing and lacks usability.
The current approach taken is shown below:
CurPrtArea = ActiveSheet.PageSetup.PrintArea
If Range("linkcellfromCBox") = True Then
myPrtArea = "B101:D131"
.PageSetup.PrintArea = myPrtArea
.FitToPagesWide = 1
.FitToPagesTall = 1
'~~> And So On
I have been trying to create a different approach using a table and/or checkboxes to enable the user to select more than one print area at a time and have all selections printed automatically.
The print area is defined by the page width with all bar one needing to print to one A4 page in width BUT all need to be dynamic in determination of their length.
The solution needs to dynamically determine how many pages “tall” the print is to be. The print area should not include any rows where the first column cell has no data.
The print areas are:
Data entry A12:AB12
Coverage Summary DD3103:DE3103
Classification Summary DF3204:DR3204
Public Holidays DS3408:DU3408
Payrate Chronology DV3511:EC3511
Penalty Summary EH3718:FE3718
Other Conditions FS5772:FU5926
Annual Leave FV5926:GJ5926
Personal Leave GK6155:GZ6155
Parental Leave HA3695:HT3695
Long Service Leave HU6622:IM6622
Disaggregation of Super from Base Rate JR7039:KP7039
Disaggregation of Annual and Personal Leave from Base Rate KQ7120:LP7120
Calculation of Commission LQ7200:LV7200
Calculation of Superannuation LW7240:MD7240
Any suggestions or solutions would be appreciated.