| Вопрос: помогите с выводом на печать. | Добавлено: 28.05.08 10:26 |
Автор вопроса:  Trey
|
| как мне вывести на печать документ заполненый вычесленными значениями и графикой. Может можно rtf или в doc сделать шаблон по каторой все будет заполнятся и отправлястя на печать? |
| Ответы | Всего ответов: 12 |
|
Номер ответа: 1 Автор ответа:  s12 Вопросов: 24 Ответов: 363 |
Профиль | | #1 | Добавлено: 29.05.08 15:12 |
Да, действительно можно 
Тебе для какого языка надо? если для вб6, то где-то на форуме уже писали про вывод в документы офиса. А вот если надо для VB9 +office2007, я бы и сам посмотрел на это чудо. |
||
|
Номер ответа: 2 Автор ответа: Xapkep ICQ: 301212 Вопросов: 8 Ответов: 49 |
Web-сайт: Профиль | | #2 | Добавлено: 30.05.08 20:53 |
| Я пишу на VB6, негде на форуме не нашел подобных тем | ||
|
Номер ответа: 3 Автор ответа: TreyВопросов: 13 Ответов: 45 |
Профиль | | #3 | Добавлено: 30.05.08 21:42 |
| Как осуществлять поиск на форуме? | ||
|
Номер ответа: 4 Автор ответа: SmithICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #4 | Добавлено: 30.05.08 21:52 |
|
Временно не работает
|
||
|
Номер ответа: 5 Автор ответа: XapkepICQ: 301212 Вопросов: 8 Ответов: 49 |
Web-сайт: Профиль | | #5 | Добавлено: 30.05.08 23:21 |
|
Trey юзай гугл site:http://vbnet.ru/forum бла бла
s12 я ненашел нечего подобног. Подскажите какой нить способ генерации отчета |
||
|
Номер ответа: 6 Автор ответа: HolstenВопросов: 5 Ответов: 100 |
Профиль | | #6 | Добавлено: 30.05.08 23:36 |
|
вот какой-никакой отчет
Private Sub Command1_Click()
Dim word As Object Set word = CreateObject("Word.Application" 
word.Documents.Add word.Documents(1).Range(0) = "qwerty" word.PrintPreview = True word.Visible = True 'word.PrintOut End Sub |
||
|
Номер ответа: 7 Автор ответа: TreyВопросов: 13 Ответов: 45 |
Профиль | | #7 | Добавлено: 30.05.08 23:59 |
| Holsten объясни что это за исходный код и как ее можно использовать по моим требованиям.. | ||
|
Номер ответа: 8 Автор ответа: HolstenВопросов: 5 Ответов: 100 |
Профиль | | #8 | Добавлено: 31.05.08 00:05 |
|
Этот код создает объект world.Application
добавляет в него объект Document печатает в нем слово qwerty и выводит Document в режим предварительного просмотра. Как использовать его по твоим требованиям?
А где они? |
||
|
Номер ответа: 9 Автор ответа: XapkepICQ: 301212 Вопросов: 8 Ответов: 49 |
Web-сайт: Профиль | | #9 | Добавлено: 31.05.08 00:29 |
|
документ заполненый вычесленными значениями и графикой
Тоесть там будет картинка. Должна быть таблица, и текст всяукий |
||
|
Номер ответа: 10 Автор ответа: TreyВопросов: 13 Ответов: 45 |
Профиль | | #10 | Добавлено: 31.05.08 00:32 |
|
Xapkep не влезай, моя тема..
Допустим должен вывестись документ по такому шаблону Входные данные Картинка Выходные данные все это в таблице.. можно ли шаблон како нить использовать? |
||
|
Номер ответа: 11 Автор ответа: HolstenВопросов: 5 Ответов: 100 |
Профиль | | #11 | Добавлено: 31.05.08 00:55 |
|
Ну шаблон,так шаблон. Создай нужный .dot-файл в ворде. Сохрани его. И потом открывай:
Dim word As Object
Set word = CreateObject("Word.Application"
word.Documents.Open "C:\mydocs\qwerty.dot" word.PrintPreview = True word.Visible = True Или ты под шаблоном понимаешь что-то другое? |
||
|
Номер ответа: 12 Автор ответа: HolstenВопросов: 5 Ответов: 100 |
Профиль | | #12 | Добавлено: 31.05.08 01:21 |
|
типа этого?
Private Sub Command1_Click() Dim wrd As Object Dim doc As Object Dim tbl As Object Dim sinp As String Dim sout As String Dim pict As String sinp = "Входные данные" pict = "C:\WINDOWS\пузыри.bmp" sout = "Выходные данные" Set wrd = CreateObject("Word.application"
Set doc = Word.Documents.Add Set tbl = doc.Tables.Add(doc.Range, 3, 1) tbl.Rows(1).Cells(1).Range = sinp tbl.Rows(2).Cells(1).Range.InlineShapes.AddPicture pict tbl.Rows(3).Cells(1).Range = sout wrd.Visible = True wrd.Activate End Sub |
||
Страница: 1 |