как сменить ширину рапорта?

gesper

Дата: 13.09.2005 20:21:57

Потыкался потыкался.. да так нечего и не нашел..
как сделать чтоб мой рапорт на всех машинах, без спец настройки принтера распечатывался не с 24 мм отступа от края, а скажем 6мм.. мож есть на VB код какой или свойства где то я пропустил?

___________________________________________________
и приколется обломившийся и обломится приколовшийся

Владимир Саныч

Дата: 13.09.2005 20:39:48

Дык это не ширина, а поля?

gesper

Дата: 13.09.2005 20:56:19

ну обзывай как хочеш, но по краям имхо слишком большой отступ.. у меня таблица не влазит если я эти границы не уменьшу.. а переворачивать лист не желательно

Alexander G

Дата: 14.09.2005 00:29:30

У A2002 и выше есть объект Printer. Для более ранних версий это гемморойнее.

RVI

Дата: 14.09.2005 08:53:15

Пример с Report:

Dim rpt As Report
DoCmd.OpenReport "ляляля", acPreview, , , acHidden
Set rpt = Reports("ляляля")
With rpt.Printer
    .TopMargin = 1440
    .BottomMargin = 1440
    .LeftMargin = 1440
    .RightMargin = 1440
    .Orientation = acPRORLandscape
    .Duplex = acPRDPVertical
    .PaperBin = acPRBNAuto
    .PaperSize = acPRPSA4
    .PrintQuality = acPRPQMedium
End With
DoCmd.OpenReport "ляляля", acPreview

gesper

Дата: 14.09.2005 09:29:34

фенк.. попробуем :)

геспер

Дата: 15.09.2005 16:23:27

не не помогает..
я тут сделал для эксперимента отчет расположеный горизонтально, но когда притащил его на работу он распечатался вертикально это почему? может быть из за того что я подотчет вставил из другого отчета?