ник: Lukas
В Report_Open, после того, как определились, что хватит ширины одного листа,
можно попробовать так:
...
Me.Width = Me.Width /2
Me.Printer.DefaultSize = False
Me.Printer.ItemSizeWidth = Me.Printer.ItemSizeWidth /2
...
|
Контролов на правой половине уже быть не должно.
Сам не проверял,
я наоборот "раздвигал" с одного листа на два,
так что только "по аналогии".