Pdf yazdırmada sayfa ve kalite ayarı

[incsoft]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Arkadaşlar ekteki dosyamla pdf yazdırma işlemini belirtmiş olduğum klasöre belirtmiş olduğum koşullarda yazdırıyorum ancak şöyle 2 sıkıntım var. Birincisi oluşturulan pdf dosyalarının ebatları büyük olmakta onu düşüremedim birde sadece 1 ve 2.sayfaları yazdırmak istiyorum bunları nasıl yaptırabilirim? Normal bir pdf yazdırma programı ile yazdırdığımda mesela 70 kb olan dosya bununla 250 kb oluyor arşivleme yaptığımda dolayı maillerde yer önem arz ediyor.

 

Makro İle Sayfalar Arası Veri Taşımak

Aktif satır çift tıklandığında temizlensin

[Ömer BARAN]

Merhaba @incsoft .

Belgenizde SAYFA YAPISI ayarlarıyla biraz uğraşmanız gerekiyor demektir.
Özellikle SIĞDIR kısmına dikkat edersiniz.

 

[incsoft]

Merhaba @incsoft .

Belgenizde SAYFA YAPISI ayarlarıyla biraz uğraşmanız gerekiyor demektir.
Özellikle SIĞDIR kısmına dikkat edersiniz.

bu sadece örnek dosya efendim benim bazı dosyalarımda 4 sayfa bulunuyor bu kısımlardan bilgim vardır. Benim amacım macro ile 1 ve 2.sayfalar nasıl yazdırılır onu öğrenmek. Mesela 10 sayfa var sadece 1 ve 2.sayfalar yazdırılacak. Pdf ebat küçültmesi de pdf yazıcısına göre değişiyor. Excel de macro ile yaptırdım ancak boyutları büyük oluyor..

 

[Ömer BARAN]

Sn. @incsoft

İşte, verilen çözüm önerilerinin gerçek belgeye uyarlama sorunu yaşanmaması, hızlı ve net çözüme ulaşılmasını temin etmek üzere;
örnek belgelerin, gerçek belgenin özel bilgi içermeyen kopyası şeklinde hazırlanmasını istemekteyiz.

Örneğin şu kod, aktif excel sayfasının 2-4'üncü sayfalarını yazdırır.

Sub YAZDIR()
    ActiveWindow.SelectedSheets.PrintOut From:=2, To:=4, Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

 

[incsoft]

Sn. @incsoft

İşte, verilen çözüm önerilerinin gerçek belgeye uyarlama sorunu yaşanmaması, hızlı ve net çözüme ulaşılmasını temin etmek üzere;
örnek belgelerin, gerçek belgenin özel bilgi içermeyen kopyası şeklinde hazırlanmasını istemekteyiz.

Örneğin şu kod, aktif excel sayfasının 2-4'üncü sayfalarını yazdırır.

Sub YAZDIR()
    ActiveWindow.SelectedSheets.PrintOut From:=2, To:=4, Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

Hocam bu şekilde alan seçimi yaparak yazdırabiliyorum ancak sizin kodunuzu buna pdf olarak yazdıracak şekilde adapte edemedim. Ekteki dosyada revize etme imkanınız varmıdır? Eğer birde düşük boyutta yazdırması için kod ekleme imkanımız varsa sevinirim

Teşekkürler..

 

[Ömer BARAN]

@incsoft

Çözüm belgeniz ekte.

Belgede mevcut koddaki pdfalan değişkeninin karşısına,
çift tırnak arasına istediğiniz satır/satır aralıklarının adreslerini yazarak/değiştirerek
veya sayfadaki ilgili hücreye aralarına VİRGÜL koyarak alan adresini yazarak
bu alanın düşük kalitede pdf olarak kaydedilmesini sağlayabilirsiniz.

 

[incsoft]

@incsoft

Çözüm belgeniz ekte.

Belgede mevcut koddaki pdfalan değişkeninin karşısına,
çift tırnak arasına istediğiniz satır/satır aralıklarının adreslerini yazarak/değiştirerek
veya sayfadaki ilgili hücreye aralarına VİRGÜL koyarak alan adresini yazarak
bu alanın düşük kalitede pdf olarak kaydedilmesini sağlayabilirsiniz.

vip üyeliğim yok indiremedim

 

[incsoft]

@incsoft

Çözüm belgeniz ekte.

Belgede mevcut koddaki pdfalan değişkeninin karşısına,
çift tırnak arasına istediğiniz satır/satır aralıklarının adreslerini yazarak/değiştirerek
veya sayfadaki ilgili hücreye aralarına VİRGÜL koyarak alan adresini yazarak
bu alanın düşük kalitede pdf olarak kaydedilmesini sağlayabilirsiniz.

vip üye olana kadar başka 1 şekilde görebilirmiyim hocam? Macrosu vb...

 

[Ömer BARAN]

Halen yayına reklamsız olarak devam eden bir siteyi ayakta tutabilmek çok kolay değil.
Anlayış göstereceğinizi umuyorum; neticede sistemimizin ayakta durabilmesi gerekiyor.

Kod şöyle:

Sub INCSOFT_PDF_YAP()
'   Ömer BARAN
'   21.01.2022  19:20
'   Www.ExcelDestek.Com

Dim yol As String, gun As String, pdfalan As String, isim As String

yol = ThisWorkbook.Path & "\"   '   "\\DS1\ortak\VR\"
isim = " - TRAPORU"

With ActiveSheet
    pdfalan = .[P1].Text
    .PageSetup.PrintArea = "$A$1:$H$" & .Cells(Rows.Count, 1).End(3).Row
    .PageSetup.FitToPagesWide = 1
    gun = .[O1].Text
    .Range(pdfalan).ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityMinimum, Filename:=yol & gun & isim & ".pdf"
End With
MsgBox pdfalan & " alanı " & vbLf & vbLf & yol & " klasörüne" & vbLf & vbLf & _
    gun & isim & ".pdf" & vbLf & vbLf & "adıyla kaydedildi..", vbInformation, "::.. Ömer BARAN ..::"
End Sub