ActiveSheet.Select
      Dim pA As Range
      Set pA = Selection
      If pA.Cells.Count = 1 Then Exit Sub
'    pA.Select
      With ActiveSheet.PageSetup
          .PrintArea = Selection.Address
          .PaperSize = xlPaperA4
          .CenterHorizontally = True
          .Orientation = xlLandscape
          .Zoom = PercentZoom(pA)
      End With
enbl
      ActiveWindow.SelectedSheets.PrintPreview
End Sub
Public Function PercentZoom(pAr As Range) As Integer
Dim i As Integer
Dim j As Single
With ActiveSheet
      For i = 1 To pAr.Columns.Count
          j = j + .Columns(i).Width
      Next
End With
PercentZoom = Int((690 / j) * 100)
End Function

Sub test()
Dim ans As String, rPrintArea As Range
On Error Resume Next
Application.DisplayAlerts = False
    Set rPrintArea = Application.InputBox(Prompt:="Use Mouse to select area to Print.", Title:="Select Print Area", Type:=8)
On Error GoTo 0
Application.DisplayAlerts = True
      If rPrintArea Is Nothing Then Exit Sub
    ans = MsgBox(Prompt:="Yes to Print." & vbCrLf & "No to Preview." & vbCrLf & "Cancel To Abort", Buttons:=vbYesNoCancel, Title:="Print?")
      If ans = vbCancel Then Exit Sub
        If ans = vbYes Then
          rPrintArea.PrintOut
        Else
          rPrintArea.PrintOut Preview:=True, Collate:=True
        End If
End Sub