ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / PDF - Print
13 сообщений из 13, страница 1 из 1
PDF - Print
    #38048280
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
Как красиво распечатать file "PDF"?

Вот это:

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
function ulong ShellExecuteW(ulong hwnd, String lpOperation, String lpFile, String lpParameters, String lpDirectory, long nShowCmd) library "shell32.dll"


String ls_Null
String ls_Pdf = 'c:\MMM.pdf'

SetNull (ls_Null) 
ShellExecuteW (Handle (Parent), 'print', ls_PDF, ls_Null, ls_Null, 0)



Работает, но медленно и открывает белое окно "Acrobat Reader", которое потом остается открытым.
...
Рейтинг: 0 / 0
22.11.2012, 10:58
| Ответить | Цитировать | Написать  
PDF - Print
    #38048410
Фотография spas2001
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
spas2001
Участник
BullZip принтер попробуй, у него отличный функционал, в том числе и через командную строку
...
Рейтинг: 0 / 0
22.11.2012, 11:49
| Ответить | Цитировать | Написать  
PDF - Print
    #38048505
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
spas2001,
Спасибо, но нам это не подходит.
Нужно сделать все без дополнительных установок/загрузок файлов.
...
Рейтинг: 0 / 0
22.11.2012, 12:33
| Ответить | Цитировать | Написать  
PDF - Print
    #38048521
Фотография spas2001
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
spas2001
Участник
Понятно, тогда сначала советую сделать вместо print - open
...
Рейтинг: 0 / 0
22.11.2012, 12:42
| Ответить | Цитировать | Написать  
PDF - Print
    #38048600
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
Riska,
Нужно распечатать, а не открыть.
Показывать на экране файл вообще не нужно.
...
Рейтинг: 0 / 0
22.11.2012, 13:14
| Ответить | Цитировать | Написать  
PDF - Print
    #38048609
AIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIS
Участник
Riskaspas2001,
Спасибо, но нам это не подходит.
Нужно сделать все без дополнительных установок/загрузок файлов.
SumatraPDF - portable. Когда-то даже вырезал рабочую область и вставлял в ПО, где потом открывал PDF.
...
Рейтинг: 0 / 0
22.11.2012, 13:18
| Ответить | Цитировать | Написать  
PDF - Print
    #38048908
Фотография spas2001
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
spas2001
Участник
Боюсь Acrobat без открытия не сможет так сделать:)
А если на целевом компе нет ничего, что понимает PDF?
...
Рейтинг: 0 / 0
22.11.2012, 15:17
| Ответить | Цитировать | Написать  
PDF - Print
    #38048945
Фотография spas2001
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
spas2001
Участник
Небольшой солюшен
...
Рейтинг: 0 / 0
22.11.2012, 15:34
| Ответить | Цитировать | Написать  
PDF - Print
    #38049351
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
spas2001,
Код: sql
1.
2.
3.
pdfFile.src := 'filename.pdf'; 
pdfFile.LoadFile('filename.pdf'); 
pdfFile.print;


А как это выглядит в РВ?
Нужно распечатать в оригинальном размере.
...
Рейтинг: 0 / 0
22.11.2012, 18:06
| Ответить | Цитировать | Написать  
PDF - Print
    #38049611
Фотография spas2001
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
spas2001
Участник
Для этого нужен соответствующий ActiveX
Лучше всего использовать в вашем случае метод 3 (Ghostview и Ghostprint), только для этого его нужно включить в программу
...
Рейтинг: 0 / 0
22.11.2012, 21:39
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
PDF - Print
    #39576869
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
Имеем Microsoft WEB Browser. В нем PDF файл. Отправляем на печать:
Код: sql
1.
ole_1.object.ExecWB( 6, 2)


Получаем окошко настроек печати (см. картинку).
Вопрос: как распечатать без этого окошка?
...
Рейтинг: 0 / 0
27.12.2017, 14:41
| Ответить | Цитировать | Написать  
PDF - Print
    #39577588
AIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIS
Участник
Riska ,
второй параметр имеет несколько значений:
0 - Команда исполняется так, как принято по умолчанию.
1 - Перед выполнением выводится окно диалога или дополнительных настроек.
2 - Не запрашивать ввод пользователя (не задается никаких вопросов).
3 - Выводится справка по запрошенному действию, но сама команда не выполняется.

Как по мне, то Вы указали правильно - 2. Проверил у себя, док идет сразу на печать, т.е. без доп. окон.
...
Рейтинг: 0 / 0
28.12.2017, 21:43
| Ответить | Цитировать | Написать  
PDF - Print
    #39578347
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
У нас IE11 и Adobe Reader 10.1.8.
Видимо, здесь отличия.
Нам нужно было распечатать файл с жесткого диска.
Вернулись к первоночальному решению.
Работает и закрывает в конце пустое окно PDF, но печатает с сильной задержкой.

Код: sql
1.
function ulong ShellExecuteW(ulong hwnd, String lpOperation, String lpFile, String lpParameters, String lpDirectory, long nShowCmd) library "shell32.dll"



Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
string	 ls_Null, ls_title = 'Adobe Reader', ls_class
long	ll_file
ulong lhWnd 

// as_path_pdf - 'C:\MMM.pdf'

SetNull (ls_Null) 
SetNull(ls_class)

ShellExecuteW(0, 'open', 'acrord32', '/p /h ' + as_path_pdf, ls_Null, 0)
Sleep(5)

lhWnd = FindWindowA(ls_class, ls_title) // Empty Adobe Reader

IF NOT IsNull(lhWnd) THEN
    Send(lhwnd, 16, 0, 0)
END IF
...
Рейтинг: 0 / 0
31.12.2017, 08:28
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / PDF - Print
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=15&msg=38048280&tid=1335134]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 89ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 230ms
total:  407ms
созд. / загр.: 407ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]