| |
|
|
| | Подскажите пожалуйста отчет в PDF формат можно вывести? | |
| |
| |
| |
|
|
| | офис 2010
там в excel - сохранить как
есть возможность сохранить в PDF
а в аксе 2010 отчет тут же сохраняется в PDF нажатием одной кнопки
но я так понимаю вам не 2010 офис надо
даже не знаю с чего вдруг такое понадобилось | |
| |
| |
| |
|
|
| | вот тут человек утверждает, что прямо можно так и написать, что выводить в пдф. | |
| |
| |
| |
|
|
| | Я не правильно поставил вопрос .  В оффисе 2003 есть шаблон в ворде я туда в нужное место делаю вставка-закладки а в PDF можно так делать? | |
| |
| |
| |
|
|
| | точного ответа не знаю - но думаю так
нельзя
ибо PDF это рисунки
выход сделать в ворде а потом конвертировать в pdf | |
| |
| |
| |
|
|
| | можно, но нужно обязательно полный acrobat (он платный) | |
| |
| |
|
|
| |
|
|
| | Если есть опен офис
Sub SaveAsPDF_demo()
'
' Save an existing writer document as PDF
'
Dim oSM, oDesk, oDoc As Object 'OOo objects
Dim OpenParam(1) As Object 'Parameters to open the doc
Dim SaveParam(1) As Object 'Parameters to save the doc
Set oSM = CreateObject("com.sun.star.ServiceManager")
Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
Set OpenParam(0) = MakePropertyValue("Hidden", True) ' Open the file hidden
Set oDoc = oDesk.loadComponentFromURL("file:///C:/tmp/OOPROBA.odt", "_blank", 0, OpenParam())
Set SaveParam(0) = MakePropertyValue("FilterName", "writer_pdf_Export")
Call oDoc.storeToURL("file:///C:/tmp/OOPROBA.pdf", SaveParam())
Set oDesk = Nothing
Set oSM = Nothing
End Sub
|
| |
| |
| |
|
|
