Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> print 
:(
    Опции темы
Algirdas
Дата 18.4.2005, 11:09 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Pamogite. Neznaju, kak pechatat' formu na printere, shtoby byli vidny i zapisi v PictureBox i sama Forma.Na Displeje vidno vsio, a pechataet tolko formu, bez zapisej.... cry Nu programka primerno akaya:

Private Sub Command1_Click()
picPrint.Print "1. 1997.05.31", 55
picPrint.Print "2. 1997.05.31"; 55
picPrint.Print "3. 1997.05.31"; Spc(20); 55
picPrint.Print "4. 1997.05.31"; Tab(20); 55
picPrint.Font.Name = Screen.Fonts(I)
form1.PrintForm
End Sub

  Вверх
Exception
Дата 18.4.2005, 12:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186



Вообще-то есть такая вещь - транслит.
А так... странно smile
PM   Вверх
algirdas
Дата 19.4.2005, 07:49 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Цитата(Run @ 18.4.2005, 12:52)
Вообще-то есть такая вещь - транслит.
А так... странно smile

Translit?... A eto kak?....
  Вверх
Gannibal
Дата 19.4.2005, 08:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17



видиш в низу в окошке где текст набираеш написано по русски транслит? ну вот там посставь галочку и пиши... будет получаться по-русски ;) а так транслит это перевод латинских знаков в кирилические знаки .. вот можешь зайти на http://translit.ru и там поучись печатать ;) рульная штука я ей постоянно пользуюсь теперь у меня клава то английская и как то больше привык по-английски печатать быстрее получаеться smile

Это сообщение отредактировал(а) M.E.G.U.S - 19.4.2005, 08:25


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Gannibal
Дата 24.4.2005, 20:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17



Обычный способ для передачи информации на принтер состоит в использовании метода Print, связанного с объектом Printer. Например, поскольку метод Print учитывает ориентацию страницы, можно использовать свойства CurrentX и CurrentY для точного позиционирования текста и даже точек на странице.

это позиция первой буквы с лева

Код

Printer.CurrentX = 0


позиция с верху

Код

Printer.CurrentY = 720


вот так можно поставит края, а так вот поставишь формат бумаги

Код

Printer.PaperSize = vbPRPSA4


вот это ориентация бумаги как она будет лежать по гаризонтали или по вертикали

Код

Printer.Orientation = vbPRORPortrait


Это сообщение отредактировал(а) M.E.G.U.S - 24.4.2005, 21:04


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
merlex
Дата 24.4.2005, 23:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 2.4.2005

Репутация: нет
Всего: нет



M.E.G.U.S, при использовании CurrentX и CurrentX, с отступом слева будет принтится только первая строка, а сверху только первая страница. А как сделать чтоб все печаталось правильно?

я решил сделать так, при выводе на печать найти и заменить в тексте
Код

PrntStrngP$ = Replace(PrntStrng$, vbCrLf, vbCrLf & Space(b))
Printer.Print Space(b); PrntStrngP$
Printer.EndDoc

где b отступ в позициях.
Добавлено @ 23:13
кстати есть ли разница между vbCrLf и vbNewLine , при работе с Replace?
PM MAIL   Вверх
Gannibal
Дата 24.4.2005, 23:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17



Цитата(merlex @ 24.4.2005, 22:11)
M.E.G.U.S, при использовании CurrentX и CurrentX, с отступом слева будет принтится только первая строка, а сверху только первая страница.

да ты прав только первая страница... тогда при подщёте страниц можешь на каждую поставить отступ

Цитата(merlex @ 24.4.2005, 22:11)
кстати есть ли разница между vbCrLf и vbNewLine


разницы нету



--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0831 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.