Printing a wide range

[Pauljj]

I need to print a wide range, ie A1:Z33, this is obviously doable but makes the appearance on a landscape A4 sheet appear very small, so my though was ....

Could I print A1:S33 at the top of my A4 page and then T1:Z33 below it ?

Is there anyway of setting this up in VB..


Any ideas please

Thanks

Paul

 

[VoG]

Try

Sub Testprint()
Dim ws1 As Worksheet, ws2 As Worksheet
Application.ScreenUpdating = False
Set ws1 = ActiveSheet
Set ws2 = Sheets.Add
ws1.Range("A1:S33").Copy Destination:=ws2.Range("A1")
ws1.Range("T1:Z33").Copy Destination:=ws2.Range("A35")
With ws2.PageSetup
    .Orientation = xlLandscape
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With
ws2.PrintOut
Application.DisplayAlerts = False
ws2.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[Pauljj]

Thats an impressive bit of code, can I check with one thing, is there a way of copying the column widths to ws2 as my print has a couple of things squashed together

 

[VoG]

Try this:

Sub Testprint()
Dim ws1 As Worksheet, ws2 As Worksheet
Application.ScreenUpdating = False
Set ws1 = ActiveSheet
Set ws2 = Sheets.Add
ws1.Range("A1:S33").Copy Destination:=ws2.Range("A1")
ws1.Range("T1:Z33").Copy Destination:=ws2.Range("A35")
ws1.Range("A1:S1").Copy
ws2.Range("A1:S1").PasteSpecial Paste:=xlPasteColumnWidths
With ws2.PageSetup
    .Orientation = xlLandscape
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With
ws2.PrintOut
Application.DisplayAlerts = False
ws2.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[Pauljj]

Thanks very much for your help