Sayfayı PDF olarak kaydetme

Sayfayı PDF olarak kaydetme

#2703 İleti | nadir | 08 Kas 2020, 16:35

Aktif sayfayı PDF olarak dosyanın bulunduğu dizine kaydetmek için makro kodu nedir.

ActiveWorkbook.Path & "\" ..........gibi
nadir
 
İleti: 13
Kayıt: 14 Eyl 2020, 13:09
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7

Re: Sayfayı PDF olarak kaydetme

#2707 İleti | Hamurcu | 10 Kas 2020, 16:07

Aşağıdaki kod işini görür sanırım.

Kod: Tümünü seç
Sub ExportToPDF()

   dim document as object
   dim dispatcher as object

   document = ThisComponent.CurrentController.Frame
   dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
   
' Elbette aşağıdaki path satırını kendine uygun şekilde değiştirmen ve URL standardında yazman lazım (Windows \ kullanırken URL / kullanır)

   path = "file:///C:/Users/hakan.hamurcu/Documents/sheet1.pdf"
   Open path For Append As #1
   Close #1

   dim args1(0) as new com.sun.star.beans.PropertyValue
   args1(0).Name = "URL"
   args1(0).Value = "file:///C:/Users/hakan.hamurcu/Documents/sheet1.pdf"
   
   dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1())
   
End Sub
Kullanıcı avatarı
Hamurcu
 
İleti: 213
Kayıt: 06 Ağu 2012, 00:14
Konum: İstanbul
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 6.x

Re: Sayfayı PDF olarak kaydetme

#2708 İleti | nadir | 10 Kas 2020, 16:20

Teşekkürler
nadir
 
İleti: 13
Kayıt: 14 Eyl 2020, 13:09
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7


Calc - Hesap Tablosu

Kimler çevrimiçi

Kayıtlı kullanıcılar: Google [Bot], Yandex [Bot]

cron