Печать ListView
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 20
• Страница 1 из 1
- Sorch
- Новичок
- Сообщения: 38
- Зарегистрирован: 13.01.2006 (Пт) 10:42
- Откуда: Петербург
Печать ListView
Sorch » 10.01.2007 (Ср) 13:06
Как вывести на печать содержимое ListView? Положил ListView, заполненною данными на форму и отправил форму на печать (Me.PrintForm), итог ListView пустой
- Konst_One
- Член-корреспондент академии VBStreets
-
- Сообщения: 3041
- Зарегистрирован: 09.04.2004 (Пт) 13:47
- Откуда: Химки
Konst_One » 10.01.2007 (Ср) 13:11
- Код: Выделить всё
Dim lst as MScomctl.ListItem
Printer.Print "ListView contents:"
For each lst in ListView1.ListItems
Printer.Print vbtab & lst.Text
Next
Printer.End
- Sorch
- Новичок
- Сообщения: 38
- Зарегистрирован: 13.01.2006 (Пт) 10:42
- Откуда: Петербург
Sorch » 10.01.2007 (Ср) 13:38
Чуть пришлось изменить:
Dim lst As MSComctlLib.ListItem
Printer.Print "ListView contents:"
For Each lst In ListView1.ListItems
Printer.Print vbTab & lst.Text
Next
Printer.EndDoc
но данный метод выводит почему то только первый столбец, да и данные нужны в виде таблицы
Dim lst As MSComctlLib.ListItem
Printer.Print "ListView contents:"
For Each lst In ListView1.ListItems
Printer.Print vbTab & lst.Text
Next
Printer.EndDoc
но данный метод выводит почему то только первый столбец, да и данные нужны в виде таблицы
- Konst_One
- Член-корреспондент академии VBStreets
-
- Сообщения: 3041
- Зарегистрирован: 09.04.2004 (Пт) 13:47
- Откуда: Химки
Konst_One » 10.01.2007 (Ср) 18:08
- Код: Выделить всё
Dim f as Integer
Dim s as String
Dim lst As ListItem
Dim lsi As ListSubItem
f=FreeFile
Open App.Path & "\listviewcontent.htm" For Output As #f
Print #f, "<html><head><title>"
Print #f, "Содержимое списка"
Print #f, "</title></head><body><table align=center border=1 width=90% height=80% cellspacing=0 cellpading=0>"
For Each lst In Me.ListView1.ListItems
s="<tr><td>" & lst.text & "&nsbp;</td>"
For Each lsi In lst.ListSubItems
s=s & "<td>" & lsi.Text & " </td>"
Next
Print #f, s & "</tr>"
Next
Print #f, "</table></body></html>"
Close #f
- Konst_One
- Член-корреспондент академии VBStreets
-
- Сообщения: 3041
- Зарегистрирован: 09.04.2004 (Пт) 13:47
- Откуда: Химки
Konst_One » 11.01.2007 (Чт) 14:44
- Код: Выделить всё
Option Explicit
Private Sub Command1_Click()
Dim f As Integer
Dim s As String
Dim lst As ListItem
Dim lsi As ListSubItem
f = FreeFile
Open "c:\listviewcontent.htm" For Output As #f
Print #f, "<html><head><title>"
Print #f, "Ñîäåðæèìîå ñïèñêà"
Print #f, "</title></head><body><table align=center border=1 width=90% height=80% cellspacing=0 cellpading=0>"
For Each lst In Me.ListView1.ListItems
s = "<tr><td>" & lst.Text & " </td>"
For Each lsi In lst.ListSubItems
s = s & "<td>" & lsi.Text & " </td>"
Next
Print #f, s & "</tr>"
Next
Print #f, "</table></body></html>"
Close #f
Shell "explorer c:\listviewcontent.htm", vbNormalFocus
End Sub
Private Sub Form_Load()
Dim i As Integer
Dim j As Integer
Dim lst As MSComctlLib.ListItem
With Me.ListView1
For i = 1 To 10
Set lst = .ListItems.Add(, "k_" & i, "Item " & i)
For j = 1 To 3
lst.ListSubItems.Add , lst.Key & "_" & j, "Subitem " & j
Next j
Set lst = Nothing
Next i
End With
End Sub
- kibernetics
- Постоялец
-
- Сообщения: 945
- Зарегистрирован: 03.05.2006 (Ср) 13:31
- Откуда: Minsk
kibernetics » 01.02.2007 (Чт) 19:52
Konst_One
а подобным кодом можно ли както печатать без использования ИЕ?
не факт что у юзера будет ИЕ.
а подобным кодом можно ли както печатать без использования ИЕ?
не факт что у юзера будет ИЕ.
- kibernetics
- Постоялец
-
- Сообщения: 945
- Зарегистрирован: 03.05.2006 (Ср) 13:31
- Откуда: Minsk
kibernetics » 05.02.2007 (Пн) 13:23
в том то и дело, что сзодаётся. а не нужно чтоб создавался, т.к. программа запучкается с СД. и к тому же нет никакого браузера в системе. удалён.
- Бяка
- Бывалый
-
- Сообщения: 219
- Зарегистрирован: 21.09.2005 (Ср) 21:28
Бяка » 06.02.2007 (Вт) 1:40
Вот хороший пример с подробными комментариями
- Вложения
-
LViewPrint_.rar- (10.17 Кб) Скачиваний: 102
- Хакер
- Телепат
-
- Сообщения: 16478
- Зарегистрирован: 13.11.2005 (Вс) 2:43
- Откуда: Казахстан, Петропавловск
Хакер » 06.02.2007 (Вт) 5:21
kibernetics
Гы гы
Во первых есть папка temp и прочее.
Во вторых, WB удалить нельзя, ибо без него не будет работать спровочная система винды, HTMLHelp который юзают почти все проги и тд.
Гы гы
Во первых есть папка temp и прочее.
Во вторых, WB удалить нельзя, ибо без него не будет работать спровочная система винды, HTMLHelp который юзают почти все проги и тд.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
—That's right! We decapitate them.
- Хакер
- Телепат
-
- Сообщения: 16478
- Зарегистрирован: 13.11.2005 (Вс) 2:43
- Откуда: Казахстан, Петропавловск
Хакер » 06.02.2007 (Вт) 6:42
И... и что? Мне опять пытаются закрыть рот?
[Added: Плохое зрение достало
]
[Added: Плохое зрение достало
]Последний раз редактировалось Хакер 06.02.2007 (Вт) 9:06, всего редактировалось 1 раз.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
—That's right! We decapitate them.
Сообщений: 20
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 106