Pdf Yazdırma Hakkında

[hlojan]

Merhaba;

Pdf kaydetmek için

Private Sub CommandButton3_Click()
Dim sh As Worksheet
Set sh = Worksheets("SİPARİŞ FORMU")
yol = ThisWorkbook.Path
isim = sh.Range("C3").Value & "-" & Format(Now, "yyyy-mm-dd-hh-mm")
sh.Select
sh.Range("A2:G28").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol _
& "\" & isim & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Ama benim sizden öğrenmek istediğim

Pdf nin ilk sayfası Sayfa1 den alsın. 2.ci sayfasınada sayfa 2 den alsın

Konu hakkında yardımlarınızı bekliyorum

 

[Emir Hüseyin Çoban]

. . .

Daha önce yanıtladığım benzer bir soru, inceleyiniz...

Soru: Farklı sayfaları tek pdf sayfası olarak yapmak >>


. . .

 

[hlojan]

. . .

Daha önce yanıtladığım benzer bir soru, inceleyiniz...

Soru: Farklı sayfaları tek pdf sayfası olarak yapmak >>


. . .

Teşekkürler hüseyin bey;

Aldığım hata ektedir

Şimdiden teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Yol değişkeninde klasör ayracı olarak \ ilave edin.

yol = "C:\Deneme[COLOR="Red"][B]\[/B][/COLOR]"

. . .

 

[hlojan]

Teşekkürler Hüseyin Bey

 

[ZuCChiNi]

Burada harika bir örnek uygulama var.