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

Яж говорю что надо распечатать листбокс, который сейчас занимает два листа А4, а через месяц все 6 и так дальше. Не понятно как разбить на несколько листов. Печатаю при помощи Form1.Printform
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2011, 14:55
    #37052621
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помощь с распечаткой формы!
ponytoПечатаю при помощи Form1.PrintformponytoНе понятно как разбить на несколько листов.вы хотите, чтобы эти два условия выполнялись одновременно что ли? Чем не устраивает вышеприведенный вариант?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2011, 15:01
    #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:03
    #37052645
ponyto
ponyto
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помощь с распечаткой формы!
Shocker.Pro,

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

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

Если бы можно было бы использовать приложения, я бы в Access все сотворил.
Мда
xml может?
ну или для VB есть куча активX для создания отчетов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2011, 15:33
    #37052754
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помощь с распечаткой формы!
Ну, если уж Вам так хочется в своем варианте то можно так:
В цикле делите данные на порции для листбокса
подставляйте эти порции в листбокс и печатайте
Но Я бы так не делал
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2011, 15:34
    #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:35
    #37052761
ponyto
ponyto
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помощь с распечаткой формы!
Konst_One,

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

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

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

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

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

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

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

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

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

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


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

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


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