Simulate Ctrl+P in VBA

Question

Hi all,

I'm looking for a code that can simulate Ctrl+P. I have tried Dialogs(wdDialogFilePrint).Show but it doesn't have (or I couldn't find after 20mins) the option to include all column in one page.

Therefore I need a code that basically simulates Ctrl+P to the excel.

Answer 1

Use following statement in your VBA code -

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

Answer 2

Hey, any idea what is the command to send the user under "Save As"?

Answer 3

Hi Vijay, that was exactly what I needed, thanks!

Answer 4

Hi Benedict,

I'm looking for a code that can simulate Ctrl+P. I have tried Dialogs(wdDialogFilePrint).Show but it doesn't have (or I couldn't find after 20mins) the option to include all column in one page.

Therefore I need a code that basically simulates Ctrl+P to the excel.

Try something like:

'==========>>

Option Explicit

'--------->>

Public Sub Tester()

    With ActiveSheet

        With .PageSetup

            .Zoom = False

            .FitToPagesWide = 1

            .FitToPagesTall = 10  

        End With

        '\ to preview:

        .PrintPreview

        '\ or, to print, remove initial apostrophe on next line

        '.printout

    End With

End Sub

'<<=========

===

Regards,

Norman