LibreOffice Calc、用紙の余白を設定する

印刷ジョブの基本、用紙の余白を設定するマクロです。
Sub SetPageMargin

Option Explicit

Sub SetPageMargin

	Dim oSheetStyle As Object
	oSheetStyle = ThisComponent.StyleFamilies.getByName("PageStyles").getByName("Default")
	
	With oSheetStyle
		' 100 = 1mm
		.BottomMargin = 1000 
		.LeftMargin   = 1000
		.RightMargin  = 1000
		.TopMargin    = 1000
	End With
	
	oSheetStyle = Nothing
	
End Sub 'SetPageMargin