LibreOffice在打印纸之前或之后的单元格中设置日期

Question

几天前有人问这个Fix date when print sheet in excel 2016。

但是现在我需要在Libre Office Calc中做到这一点。

LibreOffice宏中是否存在一种方法，我可以在打印工作表之前在o之后的单元格值中设置当前日期？

Libre Office Image Print

我分配了“自定义”，但没有成功。

这是我的方法：

Sub Main
    Dim oSheet As Object  : oSheet = ThisComponent.CurrentController.ActiveSheet
    Dim oCell As Object : oCell = oSheet.getCellByPosition(22, 0) 
    oCell.Value = Now()
End Sub