Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
133 / 60 / 24
Регистрация: 08.11.2012
Сообщений: 250
1

Как подготовить документ к печати

22.02.2013, 13:25. Показов 1121. Ответов 4
Метки нет (Все метки)

Есть RichTextBox и надо его программно форматировать (ну как в ворде, только без ворда) и потом печатать в формате A4. (иными словами создать отчёт и печать)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.02.2013, 13:25
Ответы с готовыми решениями:

Как отправить на печать документ так, чтоб при этом не всплывало предупреждение, что документ выходит за границы печати?
Как отправить на печать документ так, чтоб при этом не всплывало предупреждение, что документ...

Подготовить новый файл для печати чисел исходного в две колонки
Помогите пожалуйста с программой: Дан текстовый файл f, содержащий целые числа от 1 до 100....

Как сделать чтобы документ не вставал на очередь печати когда принтер выключен
Привет знатокам. Имеется принтер uns-tp51.01s которым мы в магазине печатаем чеки. Так как шеф жлоб...

Нужно сделать на ASP документ для печати, и при этом чтобы были колонтитулы как в ms word.
Есть желание сделать на ASP документ для печати, и при этом чтобы были колонтитулы как в ms word....

4
90 / 20 / 2
Регистрация: 28.02.2011
Сообщений: 54
22.02.2013, 15:50 2
По поводу печати, попробуй: http://msdn.microsoft.com/ru-r... 90%29.aspx
Форматирование: придется все ручками прописывать. Основное форматирование (источник: С.Н.Лукин "О Visual Basic.NET. Самоучитель):

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RTB.HideSelection = False        'Чтобы выделение не снималось с фрагмента при уходе фокуса с поля      
End Sub
 
Private Sub Открыть_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Открыть.Click
        OpenFileDialog1.Filter = "RTF-файлы|*.RTF"
        If OpenFileDialog1.ShowDialog() = DialogResult.Cancel Then Exit Sub
        Dim Файл As String = OpenFileDialog1.FileName
        RTB.LoadFile(Файл)
End Sub
 
Private Sub Сохран_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Сохран.Click
        SaveFileDialog1.Filter = "RTF-файлы|*.RTF"
        If SaveFileDialog1.ShowDialog() = DialogResult.Cancel Then Exit Sub
        Dim Файл As String = SaveFileDialog1.FileName
        RTB.SaveFile(Файл)
End Sub
 
Private Sub Настр_шр(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Настр_шр.Click
        FontDialog1.ShowColor = True    'Предоставить возможность выбирать цвет шрифта
        FontDialog1.ShowDialog()            'Показать диалоговое окно настройки  шрифта
        'Присвоить выделенному фрагменту  шрифт, выбранный в диалоговом окне:
        RTB.SelectionFont = FontDialog1.Font
        'Присвоить выделенному фрагменту цвет шрифта, выбранный  в диалоговом окне:
        RTB.SelectionColor = FontDialog1.Color
End Sub
 
Private Sub Налево_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Налево.Click
        RTB.SelectionAlignment = HorizontalAlignment.Left
End Sub
 
Private Sub По_центру(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles По_центру.Click
        RTB.SelectionAlignment = HorizontalAlignment.Center
End Sub
 
Private Sub Направо_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Направо.Click
        RTB.SelectionAlignment = HorizontalAlignment.Right
End Sub
 
Private Sub Поставить(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Поставить.Click
        RTB.SelectionBullet = True
End Sub
 
Private Sub Снять_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Снять.Click
        RTB.SelectionBullet = False
End Sub
 
Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)  _
Handles NumericUpDown1.ValueChanged
        RTB.ZoomFactor = NumericUpDown1.Value
End Sub
1
Заблокирован
22.02.2013, 20:37 3
olusik27, Используйте специальный теги для вставки кода. Конкретно для VB.NET - вот :
Миниатюры
Как подготовить документ к печати  
0
133 / 60 / 24
Регистрация: 08.11.2012
Сообщений: 250
23.02.2013, 08:31  [ТС] 4
а как вставлять рисунки в указанном позиции
0
Заблокирован
25.02.2013, 11:50 5
Цитата Сообщение от АББА Посмотреть сообщение
программно форматировать (ну как в ворде
olusik27, А ваше решение ни как не влияет на вопрос ТС.
0
25.02.2013, 11:50
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2013, 11:50

Документ удаляется из очереди печати не напечатавшись
Здравствуйте столкнулся с необычной проблемой Используем ПО для печати билетов, удаётся...

Не отображается документ в очереди печати, да и меню тоже
Здравствуйте! При печати документа в панели инструментов Виндовс7 (справа внизу) отображается...

HP LaserJet 1018 документ зависает в очереди печати
Здравствуйте. Помогите пожалуйста. Имеется 2 компьютера - comp1 и comp2. К comp1 подключен принтер...

Как при печати отчета программно установить параметры печати?
как при печати отчета ( VBA ) программно установить параметры печати ( ширину полей )

Как добавить узел в документ XML не загружая в память весь документ
Вот собственно вопрос сейчас использую XDocument. То есть формирую узел XElement, добавляю его в...

Как добавить ссылку на документ-основание в другой документ?
Здравствуйте! У меня учебная задача, делаю свою легонькую конфигурацию. Есть документ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru