Farklı sayfaları tek pdf sayfası olarak yapmak

[mesutaygun70]

Aşağıdaki gibi bir kodum var. Farklı sayfaları Pdf olarak ayrı ayrı yazdırıyor sıkıntım yok ama ben tüm bu sayfaları tek bir pdf sayfası şeklinde nasıl yapabilirim. Dosya ismi herhangi sayfadakinden biri olabilir.

Sub PDF()
SAY = 0
For i = 1 To 1
SAY = SAY + 1

yer = Sheets("3").Select
Range("a1:j45").Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\USER\Belgeler\EBYS İZİN\üst yazı yıllık" & " " & Sheets("yıl").[ı13] & " " & Sheets("yıl").[C6] & " " & Sheets("yıl").[C7] & sayfaadi & uzantı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End Sub


Sub PDFMAZERET()
SAY = 0
For i = 1 To 1
SAY = SAY + 1

yer = Sheets("6").Select
Range("a1:K58").Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\USER\Belgeler\EBYS İZİN\üst yazı mazeret" & " " & Sheets("yıl").[ı13] & " " & Sheets("yıl").[C6] & " " & Sheets("yıl").[C7] & sayfaadi & uzantı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End Sub
Sub PDFHASTALIKYAZI()
SAY = 0
For i = 1 To 1
SAY = SAY + 1

yer = Sheets("2").Select
Range("a1:J46").Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\USER\Belgeler\EBYS İZİN\üst yazı hastalık" & " " & Sheets("yıl").[ı13] & " " & Sheets("yıl").[C6] & " " & Sheets("yıl").[C7] & sayfaadi & uzantı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End Sub
Sub PDFHASTALIKFORM()
SAY = 0
For i = 1 To 1
SAY = SAY + 1

yer = Sheets("HAST").Select
Range("a2:I39").Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\USER\Belgeler\EBYS İZİN\form hastalık" & " " & Sheets("yıl").[ı13] & " " & Sheets("yıl").[C6] & " " & Sheets("yıl").[C7] & sayfaadi & uzantı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End Sub

 

[Emir Hüseyin Çoban]

. . .

Örnek dosya ile sorunuzu destekleminizde fayda var...
http://www.excel.web.tr/f59/rnek-dosya-hazyrlarken-dikkat-edilmesi-gerekenler-t134225.html

. . .

 

[mesutaygun70]

http://s4.dosya.tc/server3/ik8z5k/ornek.rar.html
yukarıdaki linke dosya ekledim örnekteki gibi (dosya yolunu kendi bilgisayarınızda değiştirmeniz lazım) pdf yapıyor. Fakat iki farklı dosya oluyor ben bu iki dosyayıda tek bir pdf sayfasında yapmak istiyorum.

 

[Emir Hüseyin Çoban]

. . .

Belirttiğiniz hücre aralıkları 1 sayfaya sığmıyor. Sütun genişliklerini düzenlemeniz gerekiyor.
Aşağıdaki kodları deneyiniz.

Sub kod()

    Sheets("3").PageSetup.PrintArea = Range("a1:j45").Address
    Sheets("6").PageSetup.PrintArea = Range("a1:K58").Address
    Sheets("2").PageSetup.PrintArea = Range("a1:J46").Address
    Sheets("HAST").PageSetup.PrintArea = Range("a2:I39").Address

    aktifsayfa = ActiveSheet.Name
    Sheets(Array("3", "6", "2", "HAST")).Select

    'yol = "\\USER\Belgeler\EBYS İZİN\"
    yol = "C:\Users\Hüseyin\Desktop\ornek\"
    isim = "Deneme"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    yol & isim & ".pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

    Sheets(aktifsayfa).Select
End Sub

. . .

 

[halit3]

Aşağıdaki linki irdeleyiniz.

http://www.excel.web.tr/f48/stenen-sayfalary-tek-parca-olarak-pdf-yapmak-t157469.html