Word .Paste to fit Landscape A4 VBA help

[newbee2]

Hi,
Using Office 2000
Is it possible to get an excel range to fit to an A4 size landscape document. I can save a range of size A1:G19 and copy to clip board, when the range pastes it occupies two A4 sheets.
Is it possible to make it fit to the one A4 sheet.
Kind Regards
Bill

 

[asjeff]

Try something like this (I haven't tested this myself so you might need to complete any coding omissions):

With activedocument
.PageSetup.Orientation = wdOrientLandscape
.PrintPreview
.FitToPages
end with

Asjeff