Soru yazdırılan dosyanın boyutu ve sayfa ayarını ayarlama

I

incsoft

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Eki 2021
Mesajlar
131
Aldığı beğeni
15
Excel Versiyonu
Office 2019 TR
Konuyu Başlatan
Arkadaşlar daha önce buna benzer bir sorum olmuştu ve yardımcı olan arkadaşlarımız olmuştu sağolsunlar ancak burda ebat ve sayfa ayarlarını yapamadım.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.
 

Ekli dosyalar

  • ORNEK.xlsm
    21.8 KB · Gösterim: 2
Tarihe göre sırala Oylara göre sırala
H

himmgarip

Excel Dostu
Kullanıcı Bilgileri
Katılım
27 Mar 2021
Mesajlar
800
Aldığı beğeni
747
Excel Versiyonu
Office 2016 TR
incsoft' Alıntı:
Arkadaşlar daha önce buna benzer bir sorum olmuştu ve yardımcı olan arkadaşlarımız olmuştu sağolsunlar ancak burda ebat ve sayfa ayarlarını yapamadım.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.
Genişletmek için tıkla...


Sayfa ayarları yapıldı. Pdf dosyası boyutu 6kb tutuyor. Tekrar dener misiniz?
 

Ekli dosyalar

  • ORNEK.xlsm
    19.4 KB · Gösterim: 5
  • 2022-01-Sayfa1-AYLIK.pdf
    6 KB · Gösterim: 4
Olumlu oy 0 Negatif oyla
I

incsoft

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Eki 2021
Mesajlar
131
Aldığı beğeni
15
Excel Versiyonu
Office 2019 TR
Konuyu Başlatan
himmgarip' Alıntı:
Sayfa ayarları yapıldı. Pdf dosyası boyutu 6kb tutuyor. Tekrar dener misiniz?
Genişletmek için tıkla...
ne gibi bir ayar yapıldı hocam? Bu deneme dosyası benim orjinal dosyam çok büyük ve detaylı o amaçla sorma gereği duydum. Macro'da bir değişiklik göremedim sanırım.
 
Olumlu oy 0 Negatif oyla
H

himmgarip

Excel Dostu
Kullanıcı Bilgileri
Katılım
27 Mar 2021
Mesajlar
800
Aldığı beğeni
747
Excel Versiyonu
Office 2016 TR
incsoft' Alıntı:
ne gibi bir ayar yapıldı hocam? Bu deneme dosyası benim orjinal dosyam çok büyük ve detaylı o amaçla sorma gereği duydum. Macro'da bir değişiklik göremedim sanırım.
Genişletmek için tıkla...

Yazıcı ayarları yapıldı. 2 sayfa olacak şekilde ayarlandı.
Ek olarak gerçek dışı verilerle verili halde bir dosya paylaşır mısınız? Onunla bakmak daha sağlıklı olur.
 
Olumlu oy 0 Negatif oyla
I

incsoft

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Eki 2021
Mesajlar
131
Aldığı beğeni
15
Excel Versiyonu
Office 2019 TR
Konuyu Başlatan
himmgarip' Alıntı:
Yazıcı ayarları yapıldı. 2 sayfa olacak şekilde ayarlandı.
Ek olarak gerçek dışı verilerle verili halde bir dosya paylaşır mısınız? Onunla bakmak daha sağlıklı olur.
Genişletmek için tıkla...
işyerimde kullanılan özel dosyalar olduğundan dolayı atamıyorum işte. Olmuyorsa sıkıntı değildir. Sizleri de yordum bu kadar..
 
Olumlu oy 0 Negatif oyla
H

himmgarip

Excel Dostu
Kullanıcı Bilgileri
Katılım
27 Mar 2021
Mesajlar
800
Aldığı beğeni
747
Excel Versiyonu
Office 2016 TR
incsoft' Alıntı:
işyerimde kullanılan özel dosyalar olduğundan dolayı atamıyorum işte. Olmuyorsa sıkıntı değildir. Sizleri de yordum bu kadar..
Genişletmek için tıkla...


Gerçek veriler olmadan dedim. Yalandan bir şeyler yazıp atın. Nereleri dolu hücrelerin bilemiyorum ki.
 
Olumlu oy 0 Negatif oyla
H

himmgarip

Excel Dostu
Kullanıcı Bilgileri
Katılım
27 Mar 2021
Mesajlar
800
Aldığı beğeni
747
Excel Versiyonu
Office 2016 TR
incsoft' Alıntı:
örnek bir dosya ayarlamaya çalışıyım hocam yarın. Teşekkürler..
Genişletmek için tıkla...

Gönderdiğiniz örneğin içeriğini elle doldurdum. Tekrar oluştur dedim. 250 küsür kb oluyor. Buna bir bakalım.

Farklı bir yöntem olarak;

Ziyaretçiler için gizlenmiş link,görmek için Giriş yap veya üye ol.
adresinden dosyanızın boyutunu %90 oranında küçültebilirsiniz. Adobe nini kendi sitesidir. İyi akşamlar.
 
Olumlu oy 0 Negatif oyla
I

incsoft

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Eki 2021
Mesajlar
131
Aldığı beğeni
15
Excel Versiyonu
Office 2019 TR
Konuyu Başlatan
himmgarip' Alıntı:
Gönderdiğiniz örneğin içeriğini elle doldurdum. Tekrar oluştur dedim. 250 küsür kb oluyor. Buna bir bakalım.

Farklı bir yöntem olarak;

Ziyaretçiler için gizlenmiş link,görmek için Giriş yap veya üye ol.
adresinden dosyanızın boyutunu %90 oranında küçültebilirsiniz. Adobe nini kendi sitesidir. İyi akşamlar.
Genişletmek için tıkla...

ben bunu yılın her günü tam 7 tane ayrı excel dosyasında kullanıyorum hocam. Dediğiniz gibi pdf compress yazılımları var ama bana excel üzerinden yapan olması her zaman avantaj olacaktır. Zaman çok önemli çünkü.
 
Olumlu oy 0 Negatif oyla
H

himmgarip

Excel Dostu
Kullanıcı Bilgileri
Katılım
27 Mar 2021
Mesajlar
800
Aldığı beğeni
747
Excel Versiyonu
Office 2016 TR
Excel'in kendisi elle kaydetmede bu çalışma sayfasını pdf olarak en kötü ayarlarda 189 kb olarak kaydediyor. Yine de bir bakacağım.
 
Olumlu oy 0 Negatif oyla
I

incsoft

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Eki 2021
Mesajlar
131
Aldığı beğeni
15
Excel Versiyonu
Office 2019 TR
Konuyu Başlatan
himmgarip' Alıntı:
Excel'in kendisi elle kaydetmede bu çalışma sayfasını pdf olarak en kötü ayarlarda 189 kb olarak kaydediyor. Yine de bir bakacağım.
Genişletmek için tıkla...

dopdf,dora pdf gibi pdf yazıcıları ile excel üzerinden çok düşük ebatta yazdırıyor hocam yıllardır bu şekilde yapıyorum
 
Olumlu oy 0 Negatif oyla
H

himmgarip

Excel Dostu
Kullanıcı Bilgileri
Katılım
27 Mar 2021
Mesajlar
800
Aldığı beğeni
747
Excel Versiyonu
Office 2016 TR
incsoft' Alıntı:
dopdf,dora pdf gibi pdf yazıcıları ile excel üzerinden çok düşük ebatta yazdırıyor hocam yıllardır bu şekilde yapıyorum
Genişletmek için tıkla...

Pdf oluşturmada yazıcı DPI ayarı ön tanımlı 600 olarak geliyor ve sabit olup değiştirilemiyor. Bunu küçültürsek boyutta düşer. Ama Excel de yapılabilir mi bilmiyorum...
 
Olumlu oy 0 Negatif oyla
I

incsoft

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Eki 2021
Mesajlar
131
Aldığı beğeni
15
Excel Versiyonu
Office 2019 TR
Konuyu Başlatan
o zaman kaliteye bakmasak ta hocam oraya sadece sayfa 1 ve 2 yi yazdıracak şekilde kodu eklesek onu yapabilirmiyiz?
 
Olumlu oy 0 Negatif oyla
I

incsoft

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Eki 2021
Mesajlar
131
Aldığı beğeni
15
Excel Versiyonu
Office 2019 TR
Konuyu Başlatan
himmgarip' Alıntı:
2 nolu mesajdaki dosyalarda mevcut.
Genişletmek için tıkla...
yok hocam bu deneme dosyası olduğundan dolayı 2 sayfa ve zaten yazdırma alanları ayarlandımı 2 sayfa oluyor. Benim 4-5 sayfa olann dosyalarım var ve ben sadece 1 ve 2 nolu sayfaları yazdırmak istiyorum. Macrosu varmı?
 
Olumlu oy 0 Negatif oyla
H

himmgarip

Excel Dostu
Kullanıcı Bilgileri
Katılım
27 Mar 2021
Mesajlar
800
Aldığı beğeni
747
Excel Versiyonu
Office 2016 TR
incsoft' Alıntı:
yok hocam bu deneme dosyası olduğundan dolayı 2 sayfa ve zaten yazdırma alanları ayarlandımı 2 sayfa oluyor. Benim 4-5 sayfa olann dosyalarım var ve ben sadece 1 ve 2 nolu sayfaları yazdırmak istiyorum. Macrosu varmı?
Genişletmek için tıkla...

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
I

incsoft

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Eki 2021
Mesajlar
131
Aldığı beğeni
15
Excel Versiyonu
Office 2019 TR
Konuyu Başlatan
himmgarip' Alıntı:
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
bu kodu bende macro kaydet ile yaptım ancak yazdırma pencereleri çıkıyor. Çıkmaması gerekli o yüzden


Private Sub CommandButton1_Click()
Dim yol As String, yil As Integer, ay As String, gun As String
yol = "D:\DENEME\"
yil = Year(Date)
ay = Month(Date)
gun = ActiveSheet.Name

If Len(ay) < 2 Then ay = 0 & ay

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, Filename:=yol & yil & "-" & ay & "-" & gun & "-AYLIK.pdf"

End Sub


direk bu macroya hiç sormadan 1 ve 2 yi yazdıracak kod bulamadım. Neyse sağlık olsun
 
Olumlu oy 0 Negatif oyla
H

himmgarip

Excel Dostu
Kullanıcı Bilgileri
Katılım
27 Mar 2021
Mesajlar
800
Aldığı beğeni
747
Excel Versiyonu
Office 2016 TR
2 nolu mesajda yazdırma alanı belirlendi. Siz gerçek dosyanizdan ilk 2 sayfayı seçerek yazdırma alanı belirleyin. Sadece ilk 2 sayfayı yazsın.
 
Olumlu oy 0 Negatif oyla
Cevap yazmak için giriş yap yada kayıt ol.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Üst