Отправлено: 26.06.09 07:58. Заголовок: опять с печатью проблема

В xHarbour 0.99.61 все работало нормально. После перехода на 1.0.0 все стало распечатываться крякозябрами. Теперь надо где-то кодировку указывать?

 Отправлено: 21.03.13 14:02. Заголовок: напечатал через Cute..

напечатал через CutePDF Writer и Canon MP270 series Printer - нормально

 Отправлено: 21.03.13 14:10. Заголовок: AlexMyr пишет: напе..

AlexMyr пишет:

цитата:

напечатал через CutePDF Writer и Canon MP270 series Printer - нормально

и кол-во копий работает если больше 1 ?

 Отправлено: 21.03.13 14:11. Заголовок: AlexMyr пишет: напе..

AlexMyr пишет:

цитата:

напечатал через CutePDF Writer и Canon MP270 series Printer - нормально

Что понимать под "нормально"? Так, как хочу на сс2055...


Как делает на других принтерах тоже самое:

 Отправлено: 21.03.13 14:12. Заголовок: Так oPrinter:Cr..

Так
oPrinter:Create()
oPrinter:Landscape := .F. // портретная ориентация
oPrinter:FormType := FORM_A4 // А4
oPrinter:Copies := 2 // число копий.. ХЗ - не работает
oPrinter:startDoc("Printering USLand")
не работает,

а так
oPrinter:Copies := 2 // число копий.. ХЗ - не работает
oPrinter:Create()
oPrinter:Landscape := .F. // портретная ориентация
oPrinter:FormType := FORM_A4 // А4

oPrinter:startDoc("Printering USLand")
работает, два листа напечатал Canon.

 Отправлено: 21.03.13 14:17. Заголовок: AlexMyr пишет: Так ..

AlexMyr пишет:

цитата:

Так oPrinter:Create() oPrinter:Landscape := .F. // портретная ориентация oPrinter:FormType := FORM_A4 // А4 oPrinter:Copies := 2 // число копий.. ХЗ - не работает oPrinter:startDoc("Printering USLand") не работает, а так oPrinter:Copies := 2 // число копий.. ХЗ - не работает oPrinter:Create() oPrinter:Landscape := .F. // портретная ориентация oPrinter:FormType := FORM_A4 // А4 oPrinter:startDoc("Printering USLand") работает, два листа напечатал Canon.

Это полезно, но Dima уже дал ссылку...
Dima пишет:

цитата:

// These next 6 variables must be set before calling ::Create() if // you wish to alter the defaults VAR FormType INIT 0 VAR BinNumber INIT 0 VAR Landscape INIT .F. VAR Copies INIT 1 VAR PaperLength INIT 0 // Value is * 1/10 of mm 1000 = 10cm VAR PaperWidth INIT 0

т.е. параметры до create... но "приручить" принтеры?

 Отправлено: 21.03.13 14:28. Заголовок: AlexMyr а у мну не ..

AlexMyr
а у мну не пашет на PdfFactory PRO кол-во копий
Если печатать из любой другой проги (Word , Excel , OutlookExpress) на этот же принтер то кол-во копий срабатывает

 Отправлено: 21.03.13 14:29. Заголовок: AndreyZh пишет: ..

AndreyZh пишет:

цитата:

"приручить" принтеры?

мне кажется что дело тут не в пропуске строк а в межстрочном интервале.

 Отправлено: 21.03.13 14:39. Заголовок: Dima пишет: мне каж..

Dima пишет:

цитата:

мне кажется что дело тут не в пропуске строк а в межстрочном интервале.

А "что" задаёт этот интервал? Установки на принтерах нет.

 Отправлено: 21.03.13 14:53. Заголовок: AndreyZh пишет: А &..

AndreyZh пишет:

цитата:

А "что" задаёт этот интервал?

oPrinter:lineHeight

У Вас oPrinter:lineHeight := 164
Попробуйте закоментировать эту строку , по идее результат будет одинаков на разных принтерах

 Отправлено: 21.03.13 15:02. Заголовок: Dima пишет: oPrinte..

Dima пишет:

цитата:

oPrinter:lineHeight У Вас oPrinter:lineHeight := 164 Попробуйте закоментировать эту строку , по идее результат будет одинаков на разных принтерах

ПРЕОГРОМНЕЙШЕЕ СПАСИБО!!! Попался "шалунишка"... теперь буду думать дальше, как мне печатать - народ привык, что 80 строк на листе.

 Отправлено: 21.03.13 15:03. Заголовок: AndreyZh пишет: Что..

AndreyZh пишет:

цитата:

Что понимать под "нормально"? Так, как хочу на сс2055...

Тут не сработала установка oPrinter:lineHeight := 164

AndreyZh пишет:

цитата:

Как делает на других принтерах тоже самое:

Тут сработала

 Отправлено: 21.03.13 15:06. Заголовок: Так а что все таки с..

Так а что все таки с кол-вом копий ? Уже просто интересно ;) Ведь не работает.
Из 2-х библ hbwin и xhb , оставил только одну hbwin , (функции из xhb заменил на аналоги) пересобрал но кол-во копий не работает.

 Отправлено: 21.03.13 15:09. Заголовок: AndreyZh пишет: нар..

AndreyZh пишет:

цитата:

народ привык, что 80 строк на листе.

В исходнике
::LineHeight := Int( ::PixelsPerInchY / 6 ) // Default 6 lines per inch == # of pixels per line

6 строк на дюйм. То есть нужно подобрать такой LineHeight что бы получилось 80 строк при заданном шрифте

Руками подобрал LineHeight он будет для вашего шрифта от 80 до 85

 Отправлено: 21.03.13 15:28. Заголовок: Dima пишет: Так а ч..

Dima пишет:

цитата:

Так а что все таки с кол-вом копий ? Уже просто интересно ;) Ведь не работает. Из 2-х библ hbwin и xhb , оставил только одну hbwin , (функции из xhb заменил на аналоги) пересобрал но кол-во копий не работает

Таки Вы сами написали:
o:Copyes := 3
Должно быть перед
o:Create

... и всё работает - 3 копии

Dima пишет:

цитата:

В исходнике ::LineHeight := Int( ::PixelsPerInchY / 6 ) // Default 6 lines per inch == # of pixels per line 6 строк на дюйм. То есть нужно подобрать такой LineHeight что бы получилось 80 строк при заданном шрифте Руками подобрал LineHeight он будет для вашего шрифта от 80 до 85

За подсказку отдельное спасибо, но и так уже пришлось исходник для Get системы править... думаю, что проше пользователей "перестроить", чем xHarbour переписывать

P.S. Мой вопрос по печати... сейчас оббежал 6 типов принтеров и МФУ - везде единообразно!

 Отправлено: 21.03.13 15:31. Заголовок: AndreyZh пишет: Так..

AndreyZh пишет:

цитата:

Таки Вы сами написали: o:Copyes := 3 Должно быть перед o:Create

Да писал и да проверил но не работает..........
А нет ли у Вас готовой функции печати TextBox , типа текст в рамке ?

 Отправлено: 21.03.13 15:47. Заголовок: Dima пишет: Да писа..

Dima пишет:

цитата:

Да писал и да проверил но не работает..........

Странно? Взял свой пример, поменял местами и получись три копии на принтере. Мой текст:

 
 PROC Main() 
     LOCA oPrint, nI:=0 
     LOCA cPrinter:="" 
  
     //  Определяю принтер, используемый по умолчанию в системе 
     cPrinter    := GetDefaultPrinter() 
  
     //  Определяем имя объекта класса для принтера, установленного по умолчанию в системе 
     oPrinter    := Win32Prn():New( cPrinter ) 
     oPrinter:Landscape  := .F.      //  портретная ориентация 
     oPrinter:FormType   := FORM_A4  //  А4 
     oPrinter:Copies     := 3 
  
     //  Параметры изменяются до Create 
     oPrinter:Create() 
     oPrinter:startDoc("Printering USLand") 
  
     //  Определяем перо для рисования линий (толщина шрифта) - форма линий (сплошная, тонкая, черная) 
     oPrinter:SetPen(PS_SOLID, 1, BLACK) 
  
     //  Шрифты и сжатие. 
     oPrinter:Charset(255) 
     oPrinter:SetFont("Lucida Console", 8,{3,-53}) 
     FOR nI := 1 TO 20 
         oPrinter:NewLine() 
         oPrinter:TextOut(Str(nI,2)+" [-Мама мыла раму------------------------------------------------------------------------------------------------------]") 
     NEXT nI 
     oPrinter:endDoc()   //  Закрываю печать документа 
     oPrinter:Destroy()  //  Уничтожаю объект принтера 
     RETU 
  
 

Dima пишет:

цитата:

А нет ли у Вас готовой функции печати TextBox , типа текст в рамке ?

Увы... да и сейчас взялся за "печать на Харб", т.к. система печати на FoxPro не пашет на 64 разрядных ОС... Мой "dos" подход был: формирую тестовый файл и копирую его на принтер - сейчас делает "тоже самое" процедура в первом примере, хотя и подход через копирование тоже остался.

 Отправлено: 21.03.13 15:57. Заголовок: AndreyZh пишет: Стр..

AndreyZh пишет:

цитата:

Странно? Взял свой пример, поменял местами и получись три копии на принтере. Мой текст:

Более чем странно. Взял Ваш новый пример и 3 копии не получил , вылезла одна

HArbour 3.2 / BCC 5.5

Собирал так
c:\hb32\bin\hbmk2 test1 -lhbwin -lxhb

 Отправлено: 21.03.13 16:05. Заголовок: Dima пишет: Более ч..

Dima пишет:

цитата:

Более чем странно. Взял Ваш новый пример и 3 копии не получил , вылезла одна HArbour 3.2 / BCC 5.5 Собирал так c:\hb32\bin\hbmk2 test1 -lhbwin -lxhb

У меня xHarbour 1.2.1 Rev 6633 + BCC 5.5

 Отправлено: 21.03.13 18:29. Заголовок: Dima пишет: Более ч..

Dima пишет:

цитата:

Более чем странно. Взял Ваш новый пример и 3 копии не получил , вылезла одна HArbour 3.2 / BCC 5.5

Интересно проблема в сборке Harbour под BCC 5.5 или классе WIN_PRN !??

 Отправлено: 24.03.13 18:38. Заголовок: Dima пишет: Интерес..

Dima пишет:

цитата:

Интересно проблема в сборке Harbour под BCC 5.5

Та же фигня и с MINGW , не пашет кол-во копий (Harbour 3.2)