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


Comments

No responses found. Be the first to comment...


  • Do not include your name, "with regards" etc in the comment. Write detailed comment, relevant to the topic.
  • No HTML formatting and links to other web sites are allowed.
  • This is a strictly moderated site. Absolutely no spam allowed.
  • Name:
    Email: