Preview an invisible worksheet

[girapas]

Is there any code to preview an invisible worksheet without using Print Preview?
The reason for this is to avoid using other options of Excel Print Preview (Print, Setup, Margins etc.). I want a user to be able only preview and close the worksheet.

 

[BrianB]

Perhaps something like this

'=============================================================================
'- PREVIEW A HIDDEN WORKSHEET PREVENTING CHANGES
'- Make new workbook and copy/paste a picture
'=============================================================================
Sub PREVIEW()
    Dim MySheet As Worksheet
    Dim SheetRange As Range
    '------------------------------------------------------------------------
    '- COPY SHEET AS PICTURE
    Set MySheet = ThisWorkbook.Worksheets("Sheet1")
    Set SheetRange = MySheet.UsedRange
    SheetRange.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
    '-------------------------------------------------------------------------
    '- NEW WORKBOOK - PASTE PICTURE
    Workbooks.Add
    ActiveSheet.Pictures.Paste
    ActiveWindow.DisplayGridlines = False
    '-------------------------------------------------------------------------
End Sub
'-----------------------------------------------------------------------------