Yazıcı ayarlarını otomatik ayarlama

[ibrahim82]

Yazıcı ayarlarını otomatik olarak ayarlayabilir miyiz?
Excel den bir dosya yazdırmak istediğimde sayfa sonu boşluklarını 0 yapıp yatay bir şekilde kaydetmesini istesem , çok mu şey istemiş olurum??

 

[Levent Menteşoğlu]

İstediklerinizi Workbook_BeforePrint olayı ile yapabilirsiniz. Aşağıdaki prosedürü thisworkbook modülüme kopyalayın. Yazdır butonuna bastığınızda öncelikle bu sayfa ayarları yapılacaktır.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.RightMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.Orientation = xlLandscape
End With
End Sub

Not: Sayfa ayarları ile ilgili satırlar makro kaydet yöntemi ile elde edilmiştir. Diğer özellikler ile ilgili komutları bulmak için aynı yöntemi kullanabilirsiniz.

 

[ibrahim82]

Selam

Makrodan anlamıyorum.
Tam olarak ta anlayamadım. Açılım istiyorum.
Teşekkürler. Saygılar.