specify the number of copies to print from the printer Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Sub PrintOnePage()
    Dim wshTemp As Worksheet, wsh As Worksheet
    Dim rngArr() As Range, c As Range
    Dim i As Integer
    Dim j As Integer

ReDim rngArr(1 To 1)
    For Each wsh In ActiveWorkbook.Worksheets
        i = i + 1
        If i > 1 Then   ' resize array
            ReDim Preserve rngArr(1 To i)
        End If

On Error Resume Next
        Set c = wsh.Cells.SpecialCells(xlCellTypeLastCell)
        If Err = 0 Then
            On Error GoTo 0

'Prevent empty rows
            Do While Application.CountA(c.EntireRow) = 0 _
              And c.EntireRow.Row > 1
                Set c = c.Offset(-1, 0)
            Loop

Set rngArr(i) = wsh.Range(wsh.Range("A1"), c)
        End If
    Next wsh

'Add temp.Worksheet
    Set wshTemp = Sheets.Add(after:=Worksheets(Worksheets.Count))

On Error Resume Next
    With wshTemp
        For i = 1 To UBound(rngArr)
            If i = 1 Then
                Set c = .Range("A1")
            Else
                Set c = _
                  ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell)
                Set c = c.Offset(2, 0).End(xlToLeft)  ' skip one row
            End If

'Copy-paste range (prevent empty range)
            If Application.CountA(rngArr(i)) > 0 Then
                rngArr(i).Copy c
            End If
        Next i
    End With
    On Error GoTo 0

Application.CutCopyMode = False ' prevent marquies

With ActiveSheet.PageSetup     ' Fit to 1 page
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

'Preview New Sheet
    ActiveWindow.SelectedSheets.PrintPreview

'Print Desired Number of Copies
    i = InputBox("Print how many copies?", "ExcelTips", 1)
    If IsNumeric(i) Then
        If i > 0 Then
            ActiveSheet.PrintOut Copies:=i
        End If
    End If

'Delete temp.Worksheet?
    If MsgBox("Delete the temporary worksheet?", _
      vbYesNo, "ExcelTips") = vbYes Then
        Application.DisplayAlerts = False
        wshTemp.Delete
        Application.DisplayAlerts = True
    End If
End Sub

No	Macro Name
1	specify the number of copies to print from the printer
2	excel operators hk
3	pdf preview
4	number of sheet / page prints with message box (prints even if the sheet / page is blank)
5	output from the printer as many as the number in the cell
6	Print Custom Pages: You can use this code to print a range of custom sheet / pages instead of using the setting from the print options. Suppose you want to print sheet / pages 5 to 10. Just run this VBA code and enter the start sheet / page and end sheet / page.
7	print out the specified range of cells
8	prints all sheet / pages with data or scans but does not print
9	you specify the sheet / page copy
10	Number of outputs by Inputbox 2
11	inserts months as sheet / pages Specifies days in detail
12	printing and prompting
13	if the sheet / page is blank, inserts the date in the footer and prints if not
14	header in the active sheet / page "my report" writes "takes from a1" (14 points)
15	increment number if print
16	only printing cell a1
17	output as many as the number in the cell
18	is there a printer installed
19	remove sheet / page protections
20	a .bat file from a floppy disk

Excel Free Macros (VBA)

Specify The Number Of Copies To Print From The Printer

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords