Snasui Excel Forum

Code: Select all

Sub PrintOutput()
    Dim Apt, a As String
    'If Application.Dialogs(xlDialogPrinterSetup).Show Then
        Apt = Application.ActivePrinter
    'End If
    Application.ActivePrinter = Apt
              a = InputBox("Please input Range")
    Cells(2, 5) = Range(a).Value
    Range("E2").PrintOut
End Sub