Sayfayı PDF olarak kaydetme

Cevapla
nadir
Mesajlar: 20
Kayıt: 14 Eyl 2020, 13:09
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7

Sayfayı PDF olarak kaydetme

Mesaj gönderen nadir »

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

ActiveWorkbook.Path & "\" ..........gibi
Kullanıcı avatarı
Hamurcu
Mesajlar: 233
Kayıt: 06 Ağu 2012, 00:14
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7.x
Konum: İstanbul
İletişim:

Re: Sayfayı PDF olarak kaydetme

Mesaj gönderen Hamurcu »

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
nadir
Mesajlar: 20
Kayıt: 14 Eyl 2020, 13:09
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7

Re: Sayfayı PDF olarak kaydetme

Mesaj gönderen nadir »

Teşekkürler
Cevapla