prints all sheet / pages with data or scans but does not print Free Excel Macros (VBA) | Excel Programs

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Option Explicit

Sub PrintAllSheets()
Dim First As Integer, Last As Integer

'// Assumning Sheet1 is 1st sheet
Sheets("Sheet1").Activate
Last = Sheets.Count

For First = 1 To Last
   With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
   End With
   ActiveSheet.PageSetup.PrintArea = ""
   '// set up the way you want here, this is just an example!
   With ActiveSheet.PageSetup
        .CenterHeader = "&F!&A"
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = "Page " & First & " of " & Last
        .RightFooter = "©" & Application.Text(Now(), "yyyy")
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintNotes = False
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
   End With
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   If First  Last Then ActiveSheet.Next.Select

Next First

End Sub

No	Macro Name
1	prints all sheet / pages with data or scans but does not print
2	excel operators hk
3	number of sheet / page prints with message box (prints even if the sheet / page is blank)
4	prints cells with data
5	Send all pivot tables to printer
6	a3: prints data between cells f15
7	does not print without filling cells
8	automatic custom footer and header information on sheet / pages
9	inserts months as sheet / pages Specifies days in detail
10	printing and prompting
11	makes the print area a3: f15 and selects and prints the line to repeat
12	Printing These macro codes help you automate some print tasks that will save you more time. & Nbsp; Print Comments: Use this macro to enable settings to print cell comments at the end of the sheet / page. Suppose you have 10 sheet / pages to print, and after using this code you will receive all comments on sheet / page 11.
13	if the sheet / page is blank, inserts the date in the footer and prints if not
14	status bar macro with a message waiting
15	specify the number of copies to print from the printer
16	remove sheet / page protections
17	print without preview
18	print-out a5 paper without preview
19	printing selected data with option button
20	print all sheet / pages with one button in excel sheet

Excel Free Macros (VBA)

Prints All Sheet / Pages With Data Or Scans But Does Not Print

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords