Print Macro Button

[Emb21]

Hello,

I received this Print Macro from a board member but its printing all the sheets in my spreadsheet I have sheet named "Admin" which is the only one I want to print out with these rules applied below:

What would be the macro to print a sheet for cells A1 thru J216?

but only print data thru cells A21 thru J129 and if there is no data in those cells then it wouldnt print those rows

but it still needs to print cells below it J130 thru J216 and above A20.

the worksheet name is "Admin"

Thanks,
Eric




code:
--------------------------------------------------------------------------------
Sub Macro1()
Dim strOrigPrintArea As String
Dim shtSource As Worksheet, shtTemp As Worksheet
Dim iRow As Integer, iTotal As Integer

Application.ScreenUpdating = False
Set shtSource = Sheets("Admin")
strOrigPrintArea = shtSource.PageSetup.PrintArea
shtSource.PageSetup.PrintArea = ""
Set shtTemp = Worksheets.Add
shtSource.Range("A1:J216").Copy
ActiveSheet.Paste

iRow = 1
iTotal = 129
Do While iRow <= iTotal And iRow >= 1
If Range("J" & iRow) = "" And Range("J" & iRow).End(xlToLeft).Column = 1 And Range("A" & iRow) = "" Then
Rows(iRow).Delete
iTotal = iTotal - 1
Else
iRow = iRow + 1
End If
Loop
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$" & iTotal + 216 - 130 + 1
ActiveWorkbook.PrintOut
Application.DisplayAlerts = False
shtTemp.Delete
Application.DisplayAlerts = True

shtSource.PageSetup.PrintArea = strOrigPrintArea
Application.ScreenUpdating = True


End Sub

 

[Joe Was]

Sub myAdminPrnt()
'

Sheets("Admin").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$216"

With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperLetter
.FitToPagesWide = 1
.FitToPagesTall = False
End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[Emb21]

Thanks for the help but it prints the tab but doesn't applied the rules.

 

[Joe Was]

It works for me?

It prints A1:J216 as landscape on letter paper, one page wide for as many pages as it takes to hit J216.

 

[Emb21]

For A21 thru J100 it need to print only the data that is enter but not print the other rows but it still prints the data below J100.

Thanks for all ur help.

Eric

 

[Joe Was]

That's not what you said you needed?

Modify this to work with your ranges:

Sub Print2sheetsRanges()
'Standard module code.
'Print more than one sheets ranges as one print sheet.
Application.DisplayAlerts = False
Set NewSheet = Worksheets.Add
NewSheet.Name = "myTemp"

'Get print Ranges 1.
Sheets("Sheet1").Select

'Change your sheet1 range to whatever you want to print.
Range("A1:A13").Select

Selection.Copy
Sheets("myTemp").Select
ActiveSheet.Paste
ActiveCell.Select
'Find next empty cell.
'If you need a blank row between print ranges,
'increase the "Offset" by as many rows needed!
'If your range's last row, column "A" is blank,
'change the "A64000" to a data column!
'You can change "64000" to the max number of rows expected.
Range("A64000").End(xlUp).Offset(1, 0).Select
'End "Get print range1."
'For more than two print ranges: Copy "Get print range1" to here.
'Then change the range!
'Get last print range "Sheet2."
Sheets("Sheet2").Select

'Change your sheet2 range to whatever you want to print.
Range("A1:A9").Select

Application.CutCopyMode = False
Selection.Copy
Sheets("myTemp").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'Print combined active range.
ActiveSheet.PageSetup.PrintArea = CurrentRegion
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'Cleanup.
ActiveWindow.SelectedSheets.Delete
Sheets("Sheet2").Select
Range("A1").Select
Sheets("Sheet1").Select
Range("A1").Select
Application.DisplayAlerts = True

End Sub