powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сделать окно предосмотра печати?
11 сообщений из 11, страница 1 из 1
Как сделать окно предосмотра печати?
    #38797097
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нужно сделать окно предосмотра, чтобы можно было просматривать сразу много страниц одновременно (этикетки)
Подскажите компонент или пример кода для такой задачи.
...
Рейтинг: 0 / 0
Как сделать окно предосмотра печати?
    #38797114
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а какой компонент вы используете для самой печати?
...
Рейтинг: 0 / 0
Как сделать окно предосмотра печати?
    #38797116
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Proа какой компонент вы используете для самой печати?

Никакой, печатаю средствами VB6. Посылаю на печать форму. Криво конечно, но работает.
...
Рейтинг: 0 / 0
Как сделать окно предосмотра печати?
    #38797301
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну тогда все просто. Наристовать Form.Image в какой-нибудь Picture на форме предпросмотра. При указании координат и размера отрисовки исходное изображение формы будет пропорционально уменьшено.
...
Рейтинг: 0 / 0
Как сделать окно предосмотра печати?
    #38798212
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AntonariyНу тогда все просто. Наристовать Form.Image в какой-нибудь Picture на форме предпросмотра.

у меня на форме нет картинки, только контролы
...
Рейтинг: 0 / 0
Как сделать окно предосмотра печати?
    #38798213
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Image это не контрол, а свойство формы, возвращающее ее "скриншот".
...
Рейтинг: 0 / 0
Как сделать окно предосмотра печати?
    #38798699
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AntonariyImage это не контрол, а свойство формы, возвращающее ее "скриншот".

оно возращает только картинку загруженную в качестве фона на форму, контролы которые лежать на ней не отображаюся на картинке
...
Рейтинг: 0 / 0
Как сделать окно предосмотра печати?
    #38798712
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Eolt оно возращает только картинку загруженную в качестве фона на форму
Вы проверяли? Свойство для фоновой картинки называется Picture, а Image как раз и должен возвращать всё вместе с контролами.
...
Рейтинг: 0 / 0
Как сделать окно предосмотра печати?
    #38798798
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AntonariyEolt оно возращает только картинку загруженную в качестве фона на форму
Вы проверяли? Свойство для фоновой картинки называется Picture, а Image как раз и должен возвращать всё вместе с контролами.

Сохраняет только фон формы, без контролов на ней

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Option Explicit

Private Sub Form_Activate()
    Dim img As IPictureDisp
    Set img = Form1.Image
    Call SavePicture(img, "c:\pic.bmp")
End Sub
...
Рейтинг: 0 / 0
Как сделать окно предосмотра печати?
    #38798824
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Может просто оформить этикетку в виде юзерконтрола, а не формы. И, соответственно, иметь две формы, одну для предпросмотра, другую для печати.
...
Рейтинг: 0 / 0
Как сделать окно предосмотра печати?
    #38798929
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
EoltСохраняет только фон формы, без контролов на нейтогда ищите примеры с BitBlt -> IPictureDisp
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сделать окно предосмотра печати?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]