seçilen sayfayı yazdır ve pdf olarak kaydet

[Cengizhantr06]

bu kod ile yazdırıyorum ama aynı anda yazdırılan sayfayı pdf olarakta kaydetmek istiyorum

If Sheets("SORGU").Range("A2").Value = "" Then
MsgBox "YAZIRMA ALANI SEÇİLMEDİ ÖNCE TARİH GİREREK ARAMA YAPIP YAZDIRA BASIN", vbCritical, "pos takip": Exit Sub
End If
Dim sor As Byte
sor = MsgBox("Seçilen pos bilgileri yazdırılsınmı..?", 68, "Yazdır")
If sor = 7 Then Exit Sub
Sheets("SORGU").PrintOut
End Sub

 

[byfika]

Merhabalar,
Modül içerisine Alttaki kodu yazın ve Sheets("SORGU").PrintOut den sonra Call YazdirPDF butona tıklayınca hem yazdırma işlemi hem de belgelerime PDF kaydı yapacaktır. ( Alttaki kodda A1:I100 aralığını örnek olarak yazdım siz sayfadaki veri durumunuza göre değiştirirsiniz.)

Sub YazdirPDF()
Yol = ThisWorkbook.Path
Dosya_Adi = Format(Now, "dd.mm.yyyy") & " - SORGU.pdf"
Sheets("SORGU").Range("A1:I100").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Dosya_Adi, Quality:=xlQualityStandard, IncludeDocProperties:=True
End Sub


Veya Sheets("SORGU").PrintOut den sonra alttaki kodu yazarsanız aynı işlemi yapacaktır.

Yol = ThisWorkbook.Path
Dosya_Adi = Format(Now, "dd.mm.yyyy") & " - SORGU.pdf"
Sheets("SORGU").Range("A1:I100").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Dosya_Adi, Quality:=xlQualityStandard, IncludeDocProperties:=True

İyi çalışmalar...

 

[Cengizhantr06]

Merhabalar,
Modül içerisine Alttaki kodu yazın ve Sheets("SORGU").PrintOut den sonra Call YazdirPDF butona tıklayınca hem yazdırma işlemi hem de belgelerime PDF kaydı yapacaktır. ( Alttaki kodda A1:I100 aralığını örnek olarak yazdım siz sayfadaki veri durumunuza göre değiştirirsiniz.)

Sub YazdirPDF()
Yol = ThisWorkbook.Path
Dosya_Adi = Format(Now, "dd.mm.yyyy") & " - SORGU.pdf"
Sheets("SORGU").Range("A1:I100").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Dosya_Adi, Quality:=xlQualityStandard, IncludeDocProperties:=True
End Sub


Veya Sheets("SORGU").PrintOut den sonra alttaki kodu yazarsanız aynı işlemi yapacaktır.

Yol = ThisWorkbook.Path
Dosya_Adi = Format(Now, "dd.mm.yyyy") & " - SORGU.pdf"
Sheets("SORGU").Range("A1:I100").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Dosya_Adi, Quality:=xlQualityStandard, IncludeDocProperties:=True

İyi çalışmalar...

byfika bey aynısını yaptım ama gelmedi hatada vermedi acaba nereye kayıt ediyorki ?

 

[byfika]

Sheets("SORGU").PrintOut den sonra Call YazdirPDF yazın ve daha önce yazdırma kodunu çalıştırdığınız butonu tıklayınca Belgeler'e resimdeki gibi PDF olarak kayıt edecek.

 

[Cengizhantr06]

Merhabalar,
Modül içerisine Alttaki kodu yazın ve Sheets("SORGU").PrintOut den sonra Call YazdirPDF butona tıklayınca hem yazdırma işlemi hem de belgelerime PDF kaydı yapacaktır. ( Alttaki kodda A1:I100 aralığını örnek olarak yazdım siz sayfadaki veri durumunuza göre değiştirirsiniz.)

Sub YazdirPDF()
Yol = ThisWorkbook.Path
Dosya_Adi = Format(Now, "dd.mm.yyyy") & " - SORGU.pdf"
Sheets("SORGU").Range("A1:I100").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Dosya_Adi, Quality:=xlQualityStandard, IncludeDocProperties:=True
End Sub


Veya Sheets("SORGU").PrintOut den sonra alttaki kodu yazarsanız aynı işlemi yapacaktır.

Yol = ThisWorkbook.Path
Dosya_Adi = Format(Now, "dd.mm.yyyy") & " - SORGU.pdf"
Sheets("SORGU").Range("A1:I100").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Dosya_Adi, Quality:=xlQualityStandard, IncludeDocProperties:=True

İyi çalışmalar...

byfikabey tamamdır belgeler içine atmış çok teşekkür ederim işiniz rast gelsin

 

[byfika]

Rica ederim. İyi çalışmalar...

 

[Cengizhantr06]

Merhabalar,
Modül içerisine Alttaki kodu yazın ve Sheets("SORGU").PrintOut den sonra Call YazdirPDF butona tıklayınca hem yazdırma işlemi hem de belgelerime PDF kaydı yapacaktır. ( Alttaki kodda A1:I100 aralığını örnek olarak yazdım siz sayfadaki veri durumunuza göre değiştirirsiniz.)

Sub YazdirPDF()
Yol = ThisWorkbook.Path
Dosya_Adi = Format(Now, "dd.mm.yyyy") & " - SORGU.pdf"
Sheets("SORGU").Range("A1:I100").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Dosya_Adi, Quality:=xlQualityStandard, IncludeDocProperties:=True
End Sub


Veya Sheets("SORGU").PrintOut den sonra alttaki kodu yazarsanız aynı işlemi yapacaktır.

Yol = ThisWorkbook.Path
Dosya_Adi = Format(Now, "dd.mm.yyyy") & " - SORGU.pdf"
Sheets("SORGU").Range("A1:I100").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Dosya_Adi, Quality:=xlQualityStandard, IncludeDocProperties:=True

İyi çalışmalar...

Merhaba @byfika bey bi ricam daha olacaktı bu sorgu sayfasında range A1 den I100 olanı durumu a1den I nın son dolu satırına kadar yapabilirmiyiz?

 

[ÖmerFaruk]

Sheets("SORGU").Range("A1:I100").
Yerine
Sheets("SORGU").Range("A1:I" & Sheets("SORGU").Range("I1").End(xlDown).Row ).

Nacizane eleştirim var ancak.
193. mesajınızda bu soruyu sormamanız gerekir. Artık bunları siz becerebilir olmalısınız.

 

[Cengizhantr06]

Sheets("SORGU").Range("A1:I100").
Yerine
Sheets("SORGU").Range("A1:I" & Sheets("SORGU").Range("I1").End(xlDown).Row ).

Nacizane eleştirim var ancak.
193. mesajınızda bu soruyu sormamanız gerekir. Artık bunları siz becerebilir olmalısınız.

Estağfurullah üstadım onu biliyordum ama orda farklı şekilde olabilirmi yada orda uymaz diyerek sordum teşekkür ederim