Comments on: Printing Multiple Sheets

By: HECTOR

HECTOR — Fri, 21 Oct 2011 22:41:00 +0000

hola para todos miren he creado un programa en base de formulas para algo aqui en colombia que se llama gota gota que son prestamos a corto tiempo tengo lobros con 110 clientes y un listado de cobro tambien con recibos pero en cada hoja tengo un recibo igual cada cliente es una hoja quiero una macro que selecione area de imprecion e imprima los 110 recibos ha y si tengo 60 clientes como hago aque el numero 61 no se imprima
gracias por su aayuda

hector

By: Chase yacko

Chase yacko — Wed, 02 Jun 2010 20:13:00 +0000

I was trying to print 35 pages of a spreadsheet through the click of a vba macro on the first page. When I used the above code, it didn’t work Im very new at this, but I think I typed it in correctly. Could you explain why this wouldn’t work?

Sub PrintSheets()
Dim MyArray As Variant

MyArray = Array(“Title Page”, “Summary”, “Balance Sheet”, “Bal Sht Desc”, “Asset vs. Sales Trends”, “Asset vs. Liab & Equity Trends”, “Pct Bal Sht Desc”, “Pct Bal Sht”, “Current”, “Quick”, “Receivable turn”, “Inventory turn”, “Payable turn”, “Sales Fixed Assets”, “Sales Total Assets”, “Debt to Worth”, “Income Statemtent”, “P&L Trends”, “EBITDA Trend”, “Pct P&L Desc”, “Pct P&L”, “Depreciation as a & of Sales”,
“% Profit Assets”, “%Profit Net Worth”, “Times Interest Earned”, “Funded Debt to EBITDA”, “Cumulative Growth Rate”, “Cash Flow Statement”, “Cash Flow Desc”, “Cash Flow”, “Sales Working Capital”, “Debt Service Coverage”, “Z score”, “EM Score new”, “Conclusion”)

ThisWorkbook.Sheets(MyArray).PrintOut

End Sub

I look forward to your response, by the way these titles are the titles of each sheet I would like to print. Is this wrong?

By: millawitch

millawitch — Fri, 29 Jan 2010 00:22:00 +0000

REDIRECT SELECTION IN CELL TO PRINT JOB

In spreadsheet_1 I'm creating several cells which contain drop-down menus so the user can select values from other spreadsheets in the same workbook (Excel 2003).

My issue is:

I would like the user to, once all data is selected, be able to print automatically the spreadsheet_1 AND all the spreadsheets selected in those cells with the drop-down menu when he selects print... Is it possible?

I'm new to programming and VBA, but I'm keen to learn!

Thanks in advance!

millawitch

By: Rebecca Morrison

Rebecca Morrison — Wed, 28 Oct 2009 15:15:00 +0000

I have the following code to print a calendar by day. It's done in a template in one worksheet. As such, each loop produces one print job for each calendar day. I want to do duplex printing. How do I structure the codes so that all 366 days can be printed in one print job.

Many thanks
Rebecca

Sub Calendar()
Dim i As Integer
For i = 0 To 365
Range("I1") = DateAdd("d", i, "1/1/2010")
ActiveSheet.PrintOut
Next i
End Sub

By: Jim Swindle

Jim Swindle — Tue, 15 Sep 2009 18:48:00 +0000

Note to Osama: If you're using the same workbook every time you print, I think you could create a macro to do the following:
1. Select all but the last sheet
2. Print
3. Select a single sheet (so that you won't accidentally edit all sheets at once)

Then you could assign that macro to a macro button.

By: Gusman

Gusman — Wed, 11 Mar 2009 11:18:00 +0000

Thank you so much, very helpful!

I used the first version.

Gusman

By: Osama

Osama — Wed, 21 Jan 2009 09:08:00 +0000

Im using MS EXCEL.
I prepared suppose 5 sheet.
Sheet 1
Sheet 2
Sheet 3
Sheet 4
Sheet 5

i want to get printout of Sheet 1,2,3,4,
How it works
How can i get printout of that sheets by using (only 1) button or one command

Can i any body guide me.
I m thankful to.

By: Osama

Osama — Wed, 21 Jan 2009 09:08:00 +0000

Im using MS EXCEL.
I prepared suppose 5 sheet.
Sheet 1
Sheet 2
Sheet 3
Sheet 4
Sheet 5

i want to get printout of Sheet 1,2,3,4, ( i don't want to get printoout of Sheet 5)
How it works
How can i get printout of that sheets by using (only 1) button or one command

Can i any body guide me.
I m thankful to.

By: Jeremy

Jeremy — Wed, 12 Nov 2008 14:14:00 +0000

Hi,
I love your blog and all the great relevant information I can found in it about Excel and VBA.
In order to "save" some paper I made a custom Macro Printing 4 Pages (selecting the print area from each page) in 1 Pages. The code is working for a Workbook with up to 24 pages:

Sub Print4To1()

On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("PrintView").Delete
Application.DisplayAlerts = True
'Add a worksheet with the name "PrintView"
Set Basebook = ThisWorkbook
ActiveWorkbook.Worksheets.Add after:=Worksheets(Sheets.Count)
Worksheets(Sheets.Count).Name = "PrintView"

RowANbr = 1
RowBNbr = 1
ColANbr = 1
ColBNbr = 1

TotalSheet = ThisWorkbook.Worksheets.Count - 1

For i = 1 To TotalSheet - 1
Sheets(i).Select
myrange = Sheets(i).PageSetup.PrintArea
MyRangeRowNbr = Range(myrange).Rows.Count
MyRangeColNbr = Range(myrange).Columns.Count
Range(myrange).Copy
If i = 1 Then
Sheets("PrintView").Select
Cells(RowANbr, 1).Select
Sheets("PrintView").Pictures.Paste(Link:=True).Select

For k = 1 To MyRangeRowNbr
Sheets("PrintView").Cells(k, 1).RowHeight = Sheets(i).Cells(k, 1).RowHeight
Next k
For k = 1 To MyRangeColNbr
Sheets("PrintView").Cells(1, k).ColumnWidth = Sheets(i).Cells(1, k).ColumnWidth
Next k
'---- Save Ligne and column where Sheet 1 stop stop in preview sheet
RowANbr = RowANbr + MyRangeRowNbr + 2
ColANbr = ColANbr + MyRangeColNbr + 1
Else
If xIsEven(i) = True Then
Sheets("PrintView").Select
If RowBNbr TotalRowB Then
TotalRow = TotalRowA
Else
TotalRow = TotalRowB
End If

Sheets("PrintView").Activate
ActiveWindow.View = xlPageBreakPreview
Sheets("PrintView").DisplayAutomaticPageBreaks = True

With Sheets("PrintView").PageSetup
.PrintArea = Range(Cells(1, 1), Cells(TotalRow - 1, TotalCol - 1)).Address
' Range(Cells(1, 1), Cells(TotalRow, TotalCol))
.PrintTitleRows = ""
.PrintTitleColumns = ""
.LeftMargin = Application.InchesToPoints(0.196850393700787)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.196850393700787)
.BottomMargin = Application.InchesToPoints(0.196850393700787)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
' .PrintQuality = 300
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = i
.PrintErrors = xlPrintErrorsDisplayed
End With

For NbrDePage = 1 To (i - 1)
j = 1
myrange1 = Sheets(j * NbrDePage).PageSetup.PrintArea
TotalRow1 = Range(myrange1).Rows.Count
myrange2 = Sheets(j * NbrDePage + 2).PageSetup.PrintArea
TotalRow2 = Range(myrange2).Rows.Count
myrange3 = Sheets(j * NbrDePage + 1).PageSetup.PrintArea
TotalRow3 = Range(myrange3).Rows.Count
myrange4 = Sheets(j * NbrDePage + 3).PageSetup.PrintArea
TotalRow4 = Range(myrange4).Rows.Count
TotalRowPageOdd = TotalRow1 + TotalRow2
TotalRowPageEven = TotalRow3 + TotalRow4
If TotalRowPageOdd

By: ProblemInProvo

ProblemInProvo — Fri, 13 Jul 2007 20:43:00 +0000

Did SleeplessInSomerset ever get an answer? I’m having the exact same problem. I’ve created a dynamic string that I want to pass into an Array so that I can print a number of worksheets at once. But the Array always barfs. What should I be generating with my If Thens?