ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помощь с распечаткой формы!
22 сообщений из 22, страница 1 из 1
Помощь с распечаткой формы!
    #37052588
ponyto
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ponyto
Гость
Добрый день!
Проблема заключается в следующем - нужно распечатать небольшой отчет, который создан в Форме с Листбоксом, размеры листбокса (по вертикале) с каждым днем будут увеличиваться, а печатая форму ( Form1.Printform) на принтере печатается только что на экране, весь листбокс не влазиет!! Будьте так добры, подскажите как напечатать весь листбокс (при этом нужны еще и колонтитулы).
И второй вопрос, есть функции для создания отчетов, но они основываются на файлах .mdb , а у меня все данные берутся из .txt . Может кто знает как из .txt файлов создать отчеты?
Заранее благодарен!!!
...
Рейтинг: 0 / 0
11.01.2011, 14:44
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37052602
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
3.
Printer.Print "Печатаем"
Printer.Print ....
...
Printer.EndDoc   'в этот момент начнётся печать на дефолтном принтере
...
Рейтинг: 0 / 0
11.01.2011, 14:48
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37052608
ponyto
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ponyto
Гость
Konst_One,

Яж говорю что надо распечатать листбокс, который сейчас занимает два листа А4, а через месяц все 6 и так дальше. Не понятно как разбить на несколько листов. Печатаю при помощи Form1.Printform
...
Рейтинг: 0 / 0
11.01.2011, 14:52
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37052621
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ponytoПечатаю при помощи Form1.PrintformponytoНе понятно как разбить на несколько листов.вы хотите, чтобы эти два условия выполнялись одновременно что ли? Чем не устраивает вышеприведенный вариант?
...
Рейтинг: 0 / 0
11.01.2011, 14:55
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37052640
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Private Sub PrintListBox(ByRef lst as ListBox, Optional Byval PageSize as Integer =  50 )
dim iCount as Integer
dim iPos as Integer

Printer.Print "печатаем"
Printer.Print ""
iCount = lst.ListCount ' the number of entries in the list
if iCount >  0  then
  For iPos =  1  to iCount
    Printer.Print lst.List(iPos) 
    'проверка на новую страницу
    'сделайте сами
    'Printer.NewPage
  Next
else
   Printer.Print ""
end if
Printer.EndDoc

End Sub

разбивку на страницы уж сами добавьте
...
Рейтинг: 0 / 0
11.01.2011, 15:01
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37052645
ponyto
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ponyto
Гость
Shocker.Pro,

Предыдущий вариант, как я понимаю, печатает построчно, где придется учитывать конец страницы и там вставлять колонтитул и когда дойдет число листов штук до 50 это все легко собьется ...
Хотелось бы узнать как распечатать ListBox целиком.
Нет советов по поводу создания DataReport из .txt файлов?
...
Рейтинг: 0 / 0
11.01.2011, 15:03
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37052659
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
Я, например отчеты, скидываю из своей (мной написанной) процедуры, в которой прописано все, начиная от заголовка отчета и кончая картинками в динамически создаваемый лист Эксель.
...
Рейтинг: 0 / 0
11.01.2011, 15:06
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37052681
ponyto
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ponyto
Гость
TpaBka,

Если бы можно было бы использовать приложения, я бы в Access все сотворил.
...
Рейтинг: 0 / 0
11.01.2011, 15:11
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37052689
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
[quot ponyto]Добрый день!
Может кто знает как из .txt файлов создать отчеты?
[quot]
Как вариант:
Данные загонять в массив и дальше работать с массивом
...
Рейтинг: 0 / 0
11.01.2011, 15:12
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37052715
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
ponytoTpaBka,

Если бы можно было бы использовать приложения, я бы в Access все сотворил.
Мда
xml может?
ну или для VB есть куча активX для создания отчетов
...
Рейтинг: 0 / 0
11.01.2011, 15:20
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37052754
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
Ну, если уж Вам так хочется в своем варианте то можно так:
В цикле делите данные на порции для листбокса
подставляйте эти порции в листбокс и печатайте
Но Я бы так не делал
...
Рейтинг: 0 / 0
11.01.2011, 15:33
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37052757
ponyto
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ponyto
Гость
Konst_One
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Private Sub PrintListBox(ByRef lst as ListBox, Optional Byval PageSize as Integer =  50 )
dim iCount as Integer
dim iPos as Integer

Printer.Print "печатаем"
Printer.Print ""
iCount = lst.ListCount ' the number of entries in the list
if iCount >  0  then
  For iPos =  1  to iCount
    Printer.Print lst.List(iPos) 
    'проверка на новую страницу
    'сделайте сами
    'Printer.NewPage
  Next
else
   Printer.Print ""
end if
Printer.EndDoc

End Sub



Этот способ вроде самый шикарный!! Спасибо!
Только вопрос возник, как размер шрифта ставить? ( некоторые строчки нужны другим шрифтом)!

разбивку на страницы уж сами добавьте
...
Рейтинг: 0 / 0
11.01.2011, 15:34
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37052761
ponyto
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ponyto
Гость
Konst_One,

Не подскажешь, как размер шрифта выставлять??
...
Рейтинг: 0 / 0
11.01.2011, 15:35
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37052775
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Printer.FontSize = 12
...
Рейтинг: 0 / 0
11.01.2011, 15:40
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37052784
ponyto
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ponyto
Гость
Konst_One,

Вот спасибо, буду теперь подгонять, бумагу тронжирить)!
...
Рейтинг: 0 / 0
11.01.2011, 15:46
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37052957
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
ponyto...буду теперь подгонять, бумагу тронжирить)!
Транжирить неправильно. Вообще-то есть куча виртуальных принтеров. Любая факс-программа в частности. Например поставьте www.ventafax.ru (демоверсии хватит на всю оставшуюся жизнь), тот же штатный Microsoft Fax пойдет(хотя не так удобно).

Экономьте бумагу, берегите лес!
...
Рейтинг: 0 / 0
11.01.2011, 16:54
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37052980
ponyto
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ponyto
Гость
Konst_One,

Будь так добр не подскажешь как проверку сделать, что до конца страницы осталось две строчки?
Или хотя бы, что послана команда переход на новую страницу.
Я пробовал через If не пашет...
If Printer.NewPage Then
...
Рейтинг: 0 / 0
11.01.2011, 17:01
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37053008
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
[quot TpaBka]ponytoTpaBka,
ну или для VB есть куча активX для создания отчетов

Отважные герои всегда идут в обход! Вместо того чтобы пользоваться нормальным инструментом, облегчающим жизнь на порядки...
...
Рейтинг: 0 / 0
11.01.2011, 17:09
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37053023
ponyto
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ponyto
Гость
AndrF,

Как сказать облегчающие... Я пробовал сначала через классический DataReport, потратил целый день, что бы исхитриться и засунуть туда .txt файлы с разными разделителями, но в итоге НИЧЕГО не получилось, а искать и читать про активХ нужные займет еще день! Когда надо создать единичный проект с БД и отчетами легче в обход!!!)))
...
Рейтинг: 0 / 0
11.01.2011, 17:14
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37053027
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Printer.Height
Printer.Width

размер бумаги на твоём принтере. поищи в инете примеров море как под размер бумаги подгонять вывод на печать.
...
Рейтинг: 0 / 0
11.01.2011, 17:16
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37053050
ponyto
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ponyto
Гость
Konst_One,

Ну раз нету красивого способа, просто посчитаю количество влезаемых строк и за парочку до конца буду колонтитул вставлять...
...
Рейтинг: 0 / 0
11.01.2011, 17:22
| Ответить | Цитировать | Написать  
Помощь с распечаткой формы!
    #37053093
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
ponytoAndrF,

Как сказать облегчающие... Я пробовал сначала через классический DataReport, потратил целый день, что бы исхитриться и засунуть туда .txt файлы с разными разделителями, но в итоге НИЧЕГО не получилось, а искать и читать про активХ нужные займет еще день! Когда надо создать единичный проект с БД и отчетами легче в обход!!!)))

-какого типа разделители
-что надо от текстового файла кроме нескольких столбиков данных(шапку, заголовок таблицы, подписи)
-есть ли какая-то обработка(суммировка,группировка и прочее)


если есть --то сделай связанную таблицу и обычный отчет

если только распечатка , то открой в ворде, преобразуй в таблицу, добавь шапки и подписи. на листы ворд сам разобъет
...
Рейтинг: 0 / 0
11.01.2011, 17:38
| Ответить | Цитировать | Написать  
22 сообщений из 22, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помощь с распечаткой формы!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37052957&tid=2159084]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 31ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 17ms
total:  137ms
созд. / загр.: 137ms
x
x
Закрыть


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