incsoft
Yeni Üye
- Katılım
- 28 Ocak 2019
- Mesajlar
- 234
- En iyi yanıt
- 0
- Puanları
- 18
- Yaş
- 43
- Konum
- Ankara
- Ad Soyad
- Ufuk İNCE
- Office Vers.
- Office 2019 Professional
Arkadaşlar excel de normal pdf yazdırma programımla yazdırdığımda 65 kb olan bir dosyam aşağıdaki macro ile yaptığımda 250 kb lara çıkıyor. Kalite ayar kodları ekledim olmuyor. Bunda nasıl bir değişiklik yapabilirim?
Teşekkürler..
Private Sub CommandButton7_Click()
Dim yol As String, yil As Integer, ay As String, gun As String
'Yazıcı kalitesi
On Error Resume Next
ActiveSheet.PageSetup.PrintQuality = 5
Err.Clear
On Error GoTo 0
yol = "d:\deneme\"
yil = Year(Date)
ay = Month(Date)
gun = ActiveSheet.Name
If ay < 2 Then ay = 0 & ay
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, Filename:=yol & yil & "-" & ay & "-" & gun & "-AYLIK.pdf"
End Sub
Teşekkürler..
Private Sub CommandButton7_Click()
Dim yol As String, yil As Integer, ay As String, gun As String
'Yazıcı kalitesi
On Error Resume Next
ActiveSheet.PageSetup.PrintQuality = 5
Err.Clear
On Error GoTo 0
yol = "d:\deneme\"
yil = Year(Date)
ay = Month(Date)
gun = ActiveSheet.Name
If ay < 2 Then ay = 0 & ay
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, Filename:=yol & yil & "-" & ay & "-" & gun & "-AYLIK.pdf"
End Sub