excel sayfasını makro ile gri tonlamalı pdf kaydetme

[u.L.a.s]

merhabalar

excel çalışma sayfası makro ile pdf olarak kaydettiğim aşağıdaki kod düzeneğinde kaydedilecek dosyayı siyah beyaz veya gri tonlamalı pdf olarak kaydetmek mümkün müdür bilgi ve yardımlarınızı rica ederim

Sub KOD_PDF()

yol = ThisWorkbook.Path
isim = Format(Range("D1").Value)
'isim = Split(ThisWorkbook.Name, ".")(0)
tarih = Format(Now, "dd-mm-yyyy-hh-mm")

Sheets("Sheet1").Select
ActiveSheet.Range("A1:AK155").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & isim & "-" & tarih & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True

MsgBox isim & " ismiyle" & vbCrLf _
& yol & " dosya yoluna kaydedilmiştir."

End Sub

 

[cicosz]

Merhaba,

Siyah - beyaz düzen için kodunuzu aşağıdaki şekliyle dener misiniz?

Sub KOD_PDF()

yol = ThisWorkbook.Path
isim = Format(Range("D1").Value)
'isim = Split(ThisWorkbook.Name, ".")(0)
tarih = Format(Now, "dd-mm-yyyy-hh-mm")

Sheets(1).Select

Sheets(1).PageSetup.BlackAndWhite = True

ActiveSheet.Range("A1:AK155").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & isim & "-" & tarih & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True

Sheets(1).PageSetup.BlackAndWhite = False

MsgBox isim & " ismiyle" & vbCrLf _
& yol & " dosya yoluna kaydedilmiştir."

End Sub

 

[u.L.a.s]

evet bu kod düzeneği ile oldu. çok teşekkür ederim emeğinize bilginize sağlık