printing and prompting Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Sub PrintSelectedCells()
' prints selected cells, use from a toolbar button or a menu
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 
    ' useful only in worksheets
    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 
            ' find the row height of every row in the selection
            rHeight(i) = Rows(i).RowHeight
        Next i
        For i = 1 To cCount 
            ' find the column width of every column in the selection
            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 
            ' the range 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	printing and prompting
2	printing sequence numbers to comboboxes
3	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.
4	Show progress in status bar: You can use this macro to show the progress of a macro code in the status bar. This code will add up to 5000 serial numbers to your sheet / page and will progress along with the status bar.
5	Active default printer also prints
6	pdf preview
7	active cell printing
8	Preventing the printing of the commandbutton on the sheet / page
9	printing your userform
10	checkbox printing
11	printing selected data with option button
12	Printing all data in listbox1 to excel
13	excel operators hk
14	only printing cell a1
15	inserts months as sheet / pages Specifies days in detail
16	codes to manually select the rows and columns you want to print
17	printing optionbuttons property to textbox
18	cancel printing when one or more of the cells are empty
19	watermark printing (faded font on sheet / page background)
20	sheet / page1 printing

Excel Free Macros (VBA)

Printing And Prompting

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords