Libreoffice Calc: print ranges for all pages

gistfile1.vb

REM  *****  BASIC  *****

' Fit print range on page
sub AutoScaleSheet
view = thiscomponent.getCurrentController()
fam  =thiscomponent.stylefamilies.getbyname("PageStyles")
sh = view.getActivesheet()
style = fam.getbyname(sh.PageStyle)
style.ScaleToPagesX = 1
style.ScaleToPagesY = 1
end sub


sub AutoScale
   oDoc = ThisComponent
   oSheets = oDoc.Sheets
   Controller = oDoc.getcurrentController
   For i=0 to oSheets.Count - 1
      Controller.setActiveSheet(oSheets.getByIndex(i))
      AutoScaleSheet
   next i
   
end sub