Sayfaları birleştirip pdf kaydetmek

[tostcu55]

Merhabalar
Bir excel çalışma kitabım var içinde 3 adet sayfa var bunları birleştirip pdf olarak masaüstüne kaydet mek istiyorum makro yazıp göndere bilirmisiniz.

 

[Murat OSMA]

Şu bağlantıdan PDFCreator programını indirip; http://sourceforge.net/projects/pdfcreator/files/ - kurduktan sonra referanslardan PDFCreator'u seçin ve ek'teki dosyayı deneyin...

İyi günler...

 

[Merhum İdris SERDAR]

Merhabalar
Bir excel çalışma kitabım var içinde 3 adet sayfa var bunları birleştirip pdf olarak masaüstüne kaydet mek istiyorum makro yazıp göndere bilirmisiniz.

.

Alternatif:

Sub Pdfyap()
 
Application.Dialogs(xlDialogPrinterSetup).Show
 ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
 
End Sub

Kod önce PDF'ye dönüştürecek yazıcıyı seçmenizi isteyecek. Bunu seçtikten sonra her Sheet'i bir sayfa olarak kaydedilecek yeri dosya adını yazmanızı isteyecek.

.

 

[nane]

Şu bağlantıdan PDFCreator programını indirip; http://sourceforge.net/projects/pdfcreator/files/ - kurduktan sonra referanslardan PDFCreator'u seçin ve ek'teki dosyayı deneyin...

İyi günler...

Murat bey,

kod aşağıdaki hatayı veriyor.

Sub TumSayfalariTekPDF()
Dim pdfjob As PDFCreator.clsPDFCreator

BU KISIMDA pdfjob As PDFCreator.clsPDFCreator
hata veriyor.
Acaba yanlış birşey mi yapıyorum.

Yb®

 

[Murat OSMA]

PDFCreator programını indirip kurduğunuzu varsayıyorum....
Referanslarda MISSING ile başlayan referans var ise; seçimini iptal edin ve referanslardan PDFCreator referansını seçin. Şimdi tekrar bir deneyin.

Yazıcı seçiminde Varsayılan Yazıcı olarak PDFCreator' u seçin...