Печать документов (работа с принтеров)

[Sayan]

Как сделать что бы текст введенный в текстовое поле, при распечатке этого документа попадал в поля: 1 лицо, 2 лицо, задание? (самые поля с голограмою уже готов на A4)
Бланк документа

[ger_kar]

Как сделать что бы текст введенный в текстовое поле

А текстовые поля где расположены? На форме? Т.е. если я правильно понял, то должна быть некая форма, на ней два поля: 1 лицо, 2 лицо, которые заполняются. Далее в принтер вставляется готовый типографский бланк формата А4 и данные их этих полей должны попасть на бланк в соответствующие для них места при распечатке?
Если так, как я описал, то сделать так конечно можно, но точно попасть будет затруднительно. Каждый раз будет получаться смещение при печати. Идеального попадания добиться наверное невозможно. Гораздо проще сделать весь бланк и распечатывать его целиком, тогда все и всегда будет на своих местах. Чем такой вариант не устраивает?

[Sayan]

ger_kar, да вы правильно поняли - и первый и второй способ подходит. у вас есть пример исходник?

[Хакер]

Как сделать что бы текст введенный в текстовое поле, при распечатке этого документа попадал в поля: 1 лицо, 2 лицо, задание?

При выводе графики на принтер выводить её по нужным координатам — только и всего.

[ger_kar]

Первый способ (печать на готовом бланке) достаточно прост, но это только на первый взгляд.

При выводе графики на принтер выводить её по нужным координатам — только и всего.

Да, только проблема в том, что точно попасть в нужное место можно только при печати на цветном принтере, так как там идет четкое позиционирование листа перед печатью. Еще более менее приемлемый вариант получается при печати на хороших обычных черно белых лазерниках, но такие сейчас достаточно редки. На дешевом офисном ширпотребе попасть в нужное место практически нереально. Нынешний ширпотреб (некоторые экземпляры) даже страницы печатать прямо без перекосов заставить бывает сложно.
Зато сама реализация достаточно проста и не надо париться бланк рисовать.

Хотел привести кусок кода, стал экспериментировать и напоролся на облом

Код: Выделить всё

Dim oPrinter    As Printer
   
    For Each oPrinter In Printers
        If oPrinter.DeviceName = "EPSON Stylus Photo R270 Series" Then Exit For
    Next
   
    oPrinter.CurrentX = 500
    oPrinter.CurrentY = 1000
    oPrinter.Print "Один"
   
    oPrinter.CurrentX = 500
    oPrinter.CurrentY = 300
    oPrinter.Print "Два"

Обламывается на oPrinter.CurrentX = 500 с ошибкой, что свойство доступно только для чтения, причем объект браузер утверждает обратное:

Property CurrentX As Single
Member of VB.Printer
Returns/sets the horizontal coordinates for next print or draw method.

Property CurrentY As Single
Member of VB.Printer
Returns/sets the vertical coordinates for next print or draw method.

[ger_kar]

ger_kar, да вы правильно поняли - и первый и второй способ подходит.

По второму способу, т.е. печатать весь бланк, я бы предпочел использовать Excel. На нем нарисовать и в случае надобности подправить бланк можно достаточно быстро и без лишнего геммора.

[Хакер]

Обламывается на oPrinter.CurrentX = 500 с ошибкой, что свойство доступно только для чтения, причем объект браузер утверждает обратное:

Кое-кто никогда не работал с принтерами в VB и не любит читать документацию:

Note If you use the Printers collection to specify a particular printer, as in Printers(3), you can only access properties on a read-only basis. To both read and write the properties of an individual printer, you must first make that printer the default printer for the application.

Изучаем и размышляем:

Код: Выделить всё

Private Sub Form_Load()
    Dim prn As Printer
   
    Set prn = Printers(0)
    On Error Resume Next
    prn.CurrentX = 123
    MsgBox "Попытка 1: " + IIf(Err, "сбой — " + Err.Description, "успешно!")
    On Error GoTo 0
   
    Set Printer = prn
    On Error Resume Next
    Printer.CurrentX = 123
    MsgBox "Попытка 2: " + IIf(Err, "сбой — " + Err.Description, "успешно!")
    On Error GoTo 0
End Sub

[ger_kar]

Получается, что свойство для записи доступно только для предопределенного объекта Printer и простое присвоение ссылки этому объекту позволяет решить проблему. Т.е. копируя ссылку на объект, мы по сути устанавливаем новый принтер по умолчанию для приложения и только в нем свойства доступны на запись

Кое-кто никогда не работал с принтерами в VB и не любит читать документацию:

Почему же, с удовольствием прочитал твою ссылку на документацию, а гугл переводчик мне в этом очень помог

[Хакер]

только для предопределенного объекта Printer

Это не предпопределённый объект. Это обыкновенное свойство предопределённого аппглобального объекта.

и простое присвоение ссылки этому объекту позволяет решить проблему.

Не ссылки объекту, а ссылочного значения ссылочному свойству.

[ger_kar]

Ну теперь я думаю у автора темы не должно возникнуть дальнейших затруднений, достаточно будет подобрать координаты для вывода в нужное место. Придется только провести кучу экспериментов и потратить некоторое количество бумаги.

[Sayan]

Скиньте пример исходника пожалуйста

[Mikle]

Когда-то, когда я только осваивал VB5 (не 6!), переходя на него с Quick Basic, я написал такую программу, специально для впечатывания в нужные места бланков нужного текста. Исходники не сохранились. Пароль - "azimut mikle".

[Sayan]

Прикольная прожка, как зарегистрировать?

[Mikle]

как зарегистрировать?

Я же написал:

Пароль - "azimut mikle".

[Qwertiy]

Да, только проблема в том, что точно попасть в нужное место можно только при печати на цветном принтере, так как там идет четкое позиционирование листа перед печатью. Еще более менее приемлемый вариант получается при печати на хороших обычных черно белых лазерниках, но такие сейчас достаточно редки.

Я тет 10 назад замечательно впечатывал адреса на конверт под A4 на стареньком матричном принтере. Что-то проблем с точностью не было.
Правда, впечатывал не программно, а просто сделал нужную таблицу в Word'е и её печатал... Но на точность позиционирования это же не влияет.

[ger_kar]

Про матричные принтеры не знаю, я тоже раньше (2000-2003 гг) печатал конверты да и другие бланки на старом добром HP LJ1100. Помнится стоил он тогда очень даже прилично 400$ с хвостиком, был таким тяжелым, но и работал как трактор. За все время работы только тонер заправляли, да один раз вал поменял. На том принтере позиционирование было более менее точным, хотя все равно немного гуляло (в основном по вертикали). А сейчас принтеры насколько стали дешевые, настолько и беспонтовые. В принципе можно конечно и сейчас взять дорогой и хороший принтер, но все почемуто берут дешевые.