active cell printing Free Excel Macros (VBA) | Excel Programs

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

Sub PrintSelectedCells()
Dim aCount As Integer, cCount As Integer, rCount As Integer
Dim i As Integer, j As Long, aRange As String
Dim rHeight() As Single, cWidth() As Single
Dim AWB As Workbook, NWB As Workbook
    If UCase(TypeName(ActiveSheet))  "WORKSHEET" Then Exit Sub 
    aCount = Selection.Areas.Count
    If aCount = 0 Then Exit Sub ' no cells selected
    cCount = Selection.Areas(1).Cells.Count
    If aCount > 1 Then ' multiple areas selected
        Application.ScreenUpdating = False
        Application.StatusBar = "Printing " & aCount & " selected areas..."
        Set AWB = ActiveWorkbook
        rCount = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
        cCount = ActiveSheet.Cells.SpecialCells(xlLastCell).Column
        ReDim rHeight(rCount)
        ReDim cWidth(cCount)
        For i = 1 To rCount 
            rHeight(i) = Rows(i).RowHeight
        Next i
        For i = 1 To cCount 
            cWidth(i) = Columns(i).ColumnWidth
        Next i
        Set NWB = Workbooks.Add ' create a new workbook
        For i = 1 To rCount ' set row heights
            Rows(i).RowHeight = rHeight(i)
        Next i
        For i = 1 To cCount ' set column widths
            Columns(i).ColumnWidth = cWidth(i)
        Next i
        For i = 1 To aCount
            AWB.Activate
            aRange = Selection.Areas(i).Address 
            Range(aRange).Copy ' copying the range
            NWB.Activate
            With Range(aRange) ' pastes values and formats
                .PasteSpecial Paste:=xlValues, Operation:=xlNone, _
                    SkipBlanks:=False, Transpose:=False
                .PasteSpecial Paste:=xlFormats, Operation:=xlNone, _
                    SkipBlanks:=False, Transpose:=False
            End With
            Application.CutCopyMode = False
        Next i
        NWB.PrintOut
        NWB.Close False ' close the temporary workbook without saving
        Application.StatusBar = False
        AWB.Activate
        Set AWB = Nothing
        Set NWB = Nothing
    Else
        If cCount  -

No	Macro Name
1	active cell printing
2	reverse printing
3	only printing cell a1
4	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.
5	reference types when printing a formula to a cell
6	watermark printing (faded font on sheet / page background)
7	printing and prompting
8	receiving messages after printing on the active sheet / page
9	inserts months as sheet / pages Specifies days in detail
10	detailed active cell address
11	excel operators hk
12	prints selected areas on a sheet of paper
13	prints selected areas on a sheet of paper
14	status bar macro with a message waiting
15	print command in workbook
16	print by increasing the value in the cell by 1
17	print by increasing the value in the cell one by one
18	font size and character in cell a1 only when sending to the printer in arial-italic and 14 points
19	number of sheet / page prints with message box (prints even if the sheet / page is blank)
20	only the print area down is selected even if there is only one cell

Excel Free Macros (VBA)

Active Cell Printing

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords