ikayserili
Normal Üye
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Merhaba
1ci sayfa hariç tüm çalışma kitabını makro ile Tek PDF yaptırmak istiyorum. Yardımcı olabilirmisiniz lütfen.
---
Aşağıdaki kod ile her sayfayı ayrı ayrı PDF'e çevirebiliyorum. Bunları birleştirmesini istiyorum.
Dim sh As Worksheet
Set sh = ActiveSheet
Set Ds = CreateObject("Scripting.FileSystemObject")
Yol = ThisWorkbook.Path & "\" & ActiveSheet.Name
isim = sh.Range("B3").Value & " - " & Format(Now, "yyyy-mm-dd-hh-mm")
Application.Dialogs(xlDialogPrint).Show
kontrol = Ds.FolderExists(Yol)
If kontrol <> True Then
Ds.CreateFolder Yol
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol _
& "\" & isim & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
ActiveWorkbook.Save
1ci sayfa hariç tüm çalışma kitabını makro ile Tek PDF yaptırmak istiyorum. Yardımcı olabilirmisiniz lütfen.
---
Aşağıdaki kod ile her sayfayı ayrı ayrı PDF'e çevirebiliyorum. Bunları birleştirmesini istiyorum.
Dim sh As Worksheet
Set sh = ActiveSheet
Set Ds = CreateObject("Scripting.FileSystemObject")
Yol = ThisWorkbook.Path & "\" & ActiveSheet.Name
isim = sh.Range("B3").Value & " - " & Format(Now, "yyyy-mm-dd-hh-mm")
Application.Dialogs(xlDialogPrint).Show
kontrol = Ds.FolderExists(Yol)
If kontrol <> True Then
Ds.CreateFolder Yol
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol _
& "\" & isim & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
ActiveWorkbook.Save