vba macro for print button that brings up print screen selection window

I have a print button already created and the macro brings up the print screen selection window for the user but I need this window to already be populated with 'entire workbook' selection. The workbook is emailed to the user and they click the print button.
Thank you

'CREATE PRINT BUTTON
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 11.25, 76.5, 51, 17.25).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "PRINT"
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 5). _
        ParagraphFormat
        .FirstLineIndent = 0
        .Alignment = msoAlignLeft
    End With
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 5).Font
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorLight1
        .Fill.ForeColor.TintAndShade = 0
        .Fill.ForeColor.Brightness = 0
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 11
        .Name = "+mn-lt"
    End With
    Selection.ShapeRange.ScaleWidth 0.8529411765, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 1.1304347826, msoFalse, msoScaleFromTopLeft
    'Selection.OnAction = "PRINTWKBK"
    Range("A9").Select
    
'add print macro to button
ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
    Selection.OnAction = "PERSONAL.xlsb!ON_CLICK_PRINT"
    Range("A8").Select