print command in workbook Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
        'J.E. McGimpsey  http://www.mcgimpsey.com/excel/noprintrange.html
        Dim vFontArr As Variant
        Dim oWkSht As Worksheet
        Dim rNoPrintRange As Range
        Dim rCell As Range
        Dim rArea As Range
        Dim i As Long
        Dim bOldScreenUpdating As Boolean
        
        Cancel = True
        With Application
            .EnableEvents = False
            bOldScreenUpdating = .ScreenUpdating
            .ScreenUpdating = False
        End With
        For Each oWkSht In ActiveWindow.SelectedSheets
            On Error Resume Next
            Set rNoPrintRange = oWkSht.Range("NoPrintRange")
            On Error GoTo 0
            If Not rNoPrintRange Is Nothing Then
                With rNoPrintRange
                    ReDim vFontArr(1 To .Count)
                    i = 1
                    For Each rArea In .Areas
                        For Each rCell In rArea
                            With rCell
                                vFontArr(i) = .Font.ColorIndex
                                If .Interior.ColorIndex = xlColorIndexNone Then
                                    .Font.Color = RGB(255, 255, 255) 'white
                                Else
                                    .Font.ColorIndex = .Interior.ColorIndex
                                End If
                            i = i + 1
                            End With
                        Next rCell
                    Next rArea
                    oWkSht.PrintOut
                    i = 1
                    For Each rArea In .Areas
                        For Each rCell In rArea
                            rCell.Font.ColorIndex = vFontArr(i)
                            i = i + 1
                        Next rCell
                    Next rArea
                End With
            Else
                oWkSht.PrintOut
            End If
            Set rNoPrintRange = Nothing
        Next oWkSht
        With Application
            .ScreenUpdating = bOldScreenUpdating
            .EnableEvents = True
        End With
    End Sub

No	Macro Name
1	print command in workbook
2	cancellation of print preview commands
3	excellent menu insert file menu print print preview sheet / page structure remains
4	perfectly deletes the menu to the right mouse and adds print print preview sheet / page structure
5	excel operators hk
6	processes the opening date and time of the file in txt (bottom to bottom)
7	specify the number of copies to print from the printer
8	To print a text from excel in Excel
9	print the entire workbook
10	print your userform
11	block printing (sorry no print allowed)
12	return userforma when you close print preview
13	Whether to print straining
14	List sheet / page names in Excel file
15	book opening (single file)
16	print without preview
17	does not print without filling cells
18	book opening (more than 1 file)
19	copies the abc column to the same directory txt file closes
20	click on one of the abcd letters on the sheet / page to print the desired

Excel Free Macros (VBA)

Print Command İn Workbook

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords