PDF kaydetme formülünü kısaltma

[Kavinsky]

Herkese merhaba , sistemde fatura isimli sayfayı pdf olarak belirtilen yola kaydediyorum. Fakat takıldığım nokta şu ; Aşağıdaki Kod FATURA sayfasının görünürlüğünü kaldırıyor sayfayı seçiyor yazdırıyor ve tekrar gizliyor. Ama select kodu olduğu için makro başladığında bu işlemler gözüküyor. Bu kodu sadeleştirerek ve select işlemlerini kaldırarak yapmak mümkün müdür ? Şimdiden yardımlarınız için teşekkür ediyorum.

Sheets("FATURA").Visible = True
'Sheets("FATURA").Select
'Range("E33").Select
' Application.CutCopyMode = False
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
'        "D:\FATURA\" & Range("E47").Value & "-" & Range("E2").Value & ".pdf", Quality:=xlQualityMinimum, _
'        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
'        False
'  Sheets("FATURA").Visible = False

 

[acar6783]

Ekli dosyayı İmport file ile modüle ekleyin.
Kodların başına;scrfalse
sonuna; scrtrue yazın işlemler görünmeyecektir.

 

[halit3]

Bunu bir dene

Sheets("FATURA").Visible = True
Sheets("FATURA").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\FATURA\" & Range("E47").Value & "-" & Range("E2").Value & ".pdf", Quality:=xlQualityMinimum, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets("FATURA").Visible = False

 

[Kavinsky]

Yardımlarınız için çok teşekkür ederim. Ellerinize sağlık.