VPF::Me.PrintForm - Форум программистов

klen1

Дата 24.4.2006, 08:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 16.3.2006
Где: г. Ликино-Дулёво

Репутация: нет
Всего: нет

Вот такой текст программы!

Код


   Printer.CurrentX = 700                 ' слева
   Printer.CurrentY = 720                 ' справа
   Printer.PaperSize = vbPRPSA4           ' формат листа
   Printer.Orientation = vbPRORPortrait   ' ориентация

   Me.PrintForm

Подскажите, как распечатать простую форму с отступом слева. Спасибо.

Akina

Дата 24.4.2006, 11:01 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Printer.CurrentX, Printer.CurrentY работают только для вывода графических примитивов. Для управления принтером (изменения границ в частности) надо рулить принтером мимо формы. Наиболее удобно это делать через WMI.

PS. Не зря же существует Printer.TrackDefault ...

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

klen1

Дата 3.5.2006, 14:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 16.3.2006
Где: г. Ликино-Дулёво

Репутация: нет
Всего: нет

Код


    ' сдивунь форму правее и все её объекты
    Me.Width = Me.Width + 1000
    Dim ob
    For Each ob In Me
      ob.Left = ob.Left + 1000
    Next
    
   Me.BackColor = &H80000005
   Me.Pechat.Visible = False
   Me.PrintForm
   Me.Pechat.Visible = True
   Me.BackColor = &H80000016
   
   ' вернуть объекты на место
    For Each ob In Me
      ob.Left = ob.Left - 1000
    Next
    Me.Width = Me.Width - 1000

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »