Print Preview Option

Print Preview of your excel worksheets for printing using Macro (vb)

Sub PrintWorksheets()
On Error Resume Next
Application.ScreenUpdating = False
Dim i As Integer
 Call createarr
 
 printmsg = MsgBox("Do you want to preview the workbook for printing?", vbOKCancel, "Print preview")
 If printmsg = 2 Then
 EndPrintProcessing
 End If

Dim sheetarray() As Variant
cnti = -1

For i = 0 To Total_Count - 2
    If printyn(i) = "Y" Then
 cnti = cnti + 1
ReDim Preserve sheetarray(cnti)
sheetarray(cnti) = sectionname(i)
        
        With Sheets(sectionname(i)).PageSetup

            .BlackAndWhite = True
            .CenterHorizontally = True
            .CenterVertically = False
            .LeftMargin = 0.4
            .RightMargin = 0.4
            .PaperSize = xlPaperA4
            .FitToPagesWide = 1
            .Orientation = xlPortrait


        End With
    End If
Next


For i = 0 To Total_Count - 2
    If printyn(i) = "Y" And (i = 5 Or i = 9 Or i = 14 Or i = 16 Or i = 18 Or i = 19 Or i = 21 Or i = 8) Then
        With Sheets(sectionname(i)).PageSetup
            .Orientation = xlLandscape
        End With
    End If
Next

Sheets(sheetarray).PrintPreview
Sheets(1).Select
Application.ScreenUpdating = True
End Sub