Baskı Önizlemde yazdırmama

[Ergün GÖKER]

Herkese kolay gelsin hayırlı akşamlar. Forumda araştırdım ama istediğim gibi bir kod bulamadım.
Yapmak istediğim bir çalışma sayfasında commandbuton la baskı önizleme yapabileyim baskı önizlemede iken açık olan üst menünün görünmesini istemiyorum. Ayarlar vs. Sadece baskı önizleme yapabileyim ve baskı önizlemeyi kapatabileyim. yazdırma işini başka bir butonla yapıyorum.

Amacım sadece baskı önizle ve kapat makrosu

Şimdiden teşekkürler

 

[mustafa1205]

Aşağıdaki kodları denermisiniz ?
Sub Önizlemeyap()
Application.ScreenUpdating = False
Sheets("sayfa2").PrintPreview
Sheets("sayfa1").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Sayfa isimlerini siz kendinize göre ayarlarsınız...

 

[Ergün GÖKER]

Mustafa1205 Öncelikle teşekkür ederim. Benim istediğim baskı önzlemede üst menüde bulunan ayarla, önceki sayfa, yazdır menülerinin pasif olması sadece kapat menüsü aktif olacak diğerleri kapanacak. verdiğiniz kod bunu yapmıyor.