powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создание PDF файла через VBA
12 сообщений из 37, страница 2 из 2
Создание PDF файла через VBA
    #34323764
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelkinЭто нужно делать программно через VBA, там в цикле создаются .doc, затем нужно .pdf, а потом отправить на e-mail

Кстати, я бы постарался изменить в этом месте, а именно - создавал бы письма сразу в HTML-формате (с картиночками и прочим) - у меня сейчас так и делается... И конечному юзеру приятней будет - ибо никаких вложений... Зачем PDF-то?
...
Рейтинг: 0 / 0
Создание PDF файла через VBA
    #34323865
Belkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AndrF BelkinЭто нужно делать программно через VBA, там в цикле создаются .doc, затем нужно .pdf, а потом отправить на e-mail

Кстати, я бы постарался изменить в этом месте, а именно - создавал бы письма сразу в HTML-формате (с картиночками и прочим) - у меня сейчас так и делается... И конечному юзеру приятней будет - ибо никаких вложений... Зачем PDF-то?
Это документ за подписью директора, не хочется чтобы в документе фигурировала его подпись как картинка . А так и .doc можно отправить нет проблем.
...
Рейтинг: 0 / 0
Создание PDF файла через VBA
    #34323906
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelkinЭто документ за подписью директора, не хочется чтобы в документе фигурировала его подпись как картинка . А так и .doc можно отправить нет проблем.

А с каких пор из PDF-файла стало проблемой вырезать картинку?
Да хоть через тот же скриншот - даже думать не надо...
...
Рейтинг: 0 / 0
Создание PDF файла через VBA
    #34323964
Belkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AndrF BelkinЭто документ за подписью директора, не хочется чтобы в документе фигурировала его подпись как картинка . А так и .doc можно отправить нет проблем.

А с каких пор из PDF-файла стало проблемой вырезать картинку?
Да хоть через тот же скриншот - даже думать не надо...
Это будет как будто оригинал отсканированный, а то явная картинка
Мы эти документы в другие компании отправляем.
...
Рейтинг: 0 / 0
Создание PDF файла через VBA
    #34324203
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Belkin[quot AndrF][quot Belkin]Это документ за подписью директора, не хочется чтобы в документе фигурировала его подпись как картинка . А так и .doc можно отправить нет проблем.

Да понял я что вы отправляете.

Это будет та же картинка 1:1.
Кроме того, бумажный документ тоже прекрасно сканируется...
А PDF разбирается на части.

И что с того, что у кого-то есть такая подпись:

http://img.galya.ru/galya.ru/Pictures/catalog_dir/2005/04/16/9914.jpg
...
Рейтинг: 0 / 0
Создание PDF файла через VBA
    #34324247
Belkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AndrF Belkin[quot AndrF][quot Belkin]Это документ за подписью директора, не хочется чтобы в документе фигурировала его подпись как картинка . А так и .doc можно отправить нет проблем.

Да понял я что вы отправляете.

Это будет та же картинка 1:1.
Кроме того, бумажный документ тоже прекрасно сканируется...
А PDF разбирается на части.

И что с того, что у кого-то есть такая подпись:

http://img.galya.ru/galya.ru/Pictures/catalog_dir/2005/04/16/9914.jpg
У нас хранятся оригиналы с подписями.
А мы отправляем отсканированный вариант, а если отправить такой, то не факт что его подписали(хотя тот тоже не факт). Мне дали задание я делаю, а .doc уже хоть сейчас отправляй.
...
Рейтинг: 0 / 0
Создание PDF файла через VBA
    #34326394
SoftParanoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В проекте VBA в "References" добавляем ссылку на "Acrobat Distiller"

Dim PDFDist As New ACRODISTXLib.PdfDistiller

Dim TempFile as String : TempFile="c:\temp.prn"
Dim PDFFile as String : PDFFile="c:\temp.pdf"

ActiveDocument.PrintOut OutputFileName:=TempFile, PrintToFile:=True

PDFDist.FileToPDF TempFile, PDFFile, ""

Kill TempFile
...
Рейтинг: 0 / 0
Создание PDF файла через VBA
    #34326714
Belkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SoftParanoikВ проекте VBA в "References" добавляем ссылку на "Acrobat Distiller"

Dim PDFDist As New ACRODISTXLib.PdfDistiller

Dim TempFile as String : TempFile="c:\temp.prn"
Dim PDFFile as String : PDFFile="c:\temp.pdf"

ActiveDocument.PrintOut OutputFileName:=TempFile, PrintToFile:=True

PDFDist.FileToPDF TempFile, PDFFile, ""

Kill TempFile
Что то не получается пишет что фаил .prn используется другим процессом.

А у тебя все работает? Подскажи что сделать.
Заранее благодарен.
...
Рейтинг: 0 / 0
Создание PDF файла через VBA
    #34326717
Belkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Belkin SoftParanoikВ проекте VBA в "References" добавляем ссылку на "Acrobat Distiller"

Dim PDFDist As New ACRODISTXLib.PdfDistiller

Dim TempFile as String : TempFile="c:\temp.prn"
Dim PDFFile as String : PDFFile="c:\temp.pdf"

ActiveDocument.PrintOut OutputFileName:=TempFile, PrintToFile:=True

PDFDist.FileToPDF TempFile, PDFFile, ""

Kill TempFile
Что то не получается пишет что фаил .prn используется другим процессом.

А у тебя все работает? Подскажи что сделать.
Заранее благодарен.
В догонку скрин шот
...
Рейтинг: 0 / 0
Создание PDF файла через VBA
    #34327071
SoftParanoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Проблема, думаю в том, что у тебя настроена печать в фоновом режиме.
Попробуй так:

Dim PDFDist As New ACRODISTXLib.PdfDistiller

Dim TempFile as String : TempFile="c:\temp.prn"
Dim PDFFile as String : PDFFile="c:\temp.pdf"

ActivePrinter = "Acrobat Distiller"

ActiveDocument.PrintOut Background:=False,OutputFileName:=TempFile, PrintToFile:=True

PDFDist.FileToPDF TempFile, PDFFile, ""

Kill TempFile
...
Рейтинг: 0 / 0
Создание PDF файла через VBA
    #34329491
Belkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SoftParanoikПроблема, думаю в том, что у тебя настроена печать в фоновом режиме.
Попробуй так:

Dim PDFDist As New ACRODISTXLib.PdfDistiller

Dim TempFile as String : TempFile="c:\temp.prn"
Dim PDFFile as String : PDFFile="c:\temp.pdf"

ActivePrinter = "Acrobat Distiller"

ActiveDocument.PrintOut Background:=False,OutputFileName:=TempFile, PrintToFile:=True

PDFDist.FileToPDF TempFile, PDFFile, ""

Kill TempFile
Огрмоное спасибо!!!
Все сделал, теперь отлично.
СПАСИБО!!!
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Создание PDF файла через VBA
    #38505239
Фотография Surrogate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
думаю, что это уже давно не актуально ! но хочу поделиться отличным методом

Код: vbnet
1.
2.
pdf_n = "C:\1\myfile.pdf" ' полное имя файла
ActiveDocument.ExportAsFixedFormat pdf_n, wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportAllDocument



судя по всему этот метод появился в office 2007
Document.ExportAsFixedFormat Method
...
Рейтинг: 0 / 0
12 сообщений из 37, страница 2 из 2
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создание PDF файла через VBA
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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