Activereport報表中怎樣設置上,下,左,右邊距及橫向打印?

Question

如題

Answer 1

Dim Act As ActiveReport
    设置纸的类型及尺寸
    Act.Printer.PaperSize = 255
    Act.Printer.PaperHeight = 21 / 2.54 * 1440 '21cm
    Act.Printer.PaperWidth = 29 / 2.54 * 1440 '29cm
    设置边宽
    Act.PageSettings.LeftMargin = 1 / 2.54 * 1440 '1cm
    Act.PageSettings.RightMargin = 1 / 2.54 * 1440 '1cm
    Act.PageSettings.TopMargin = 1 / 2.54 * 1440 '1cm
    Act.PageSettings.BottomMargin = 1 / 2.54 * 1440 '1cm

Answer 2

楼上说的是。
也可以通过ActiveReport的菜单来更改：
File->Page Setup...