sayfa yapısı ve kenar boşluğu

[sametumur]

arkadaşlar merhaba,

userformda oluşturduğum yazdır butonuna tıkladığımda "Sayfa2" yazdırılsın istiyorum ancak sayfa2 yazdırılmadan hemen önce sayfa kenar boşlukları ve sayfa boyutu ayarlansın istiyorum.

örneğin: sayfa2 nin kenar boşluklarını üst 0 alt 0 sol 0 ve sağ 0 yapacak, boyutu ise c5 yapacak.

buna uygun bir kod var mı?

sayfa boyutu için standart a4 b5 şeklinde deil de cm. ve mm. olarak ayarlamak mümkün mü?

 

[asi_kral]

Merhaba
Bu kodu ilave eder misiniz ?

Option Explicit
Sub ayar()
With Sheets("Sayfa2").PageSetup
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.PaperSize = xlPaperEnvelopeC5
End With
End Sub

Baskı Önizleme'ye tıklayın. Sayfa Yapısı - Ölçek'ten istediğiniz ayarları yapabilirsiniz.
Dilerseniz bunu da makroya ilave edebilirsiniz.

 

[sametumur]

bu kodu nereye ekleyeceğimi tam anlamadım.

aşağıdaki gibi bi kod sistemim var.

Private Sub UserForm_Initialize()
......................................................
ComboBox2.RowSource="Sayfa1!B2:B101"
ComboBox3.RowSource="Sayfa1!B2:B101"
.................................................
End Sub

Private Sub CommandButton1_Click()
..................................................
Sayfa2.PrintOut Copies:=1
..................................................
End Sub

 

[asi_kral]

Kodunuzu bu şekilde güncelleyin.

Private Sub UserForm_Initialize()
......................................................
ComboBox2.RowSource="Sayfa1!B2:B101"
ComboBox3.RowSource="Sayfa1!B2:B101"
.................................................
End Sub

Private Sub CommandButton1_Click()
..................................................
With Sheets("Sayfa2").PageSetup
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.PaperSize = xlPaperEnvelopeC5
End With
Sayfa2.PrintOut Copies:=1
..................................................
End Sub

 

[sametumur]

.PaperSize = xlPaperEnvelopeC5

kısmına geldiğinde hata mesajı veriyor.

(Run-time error '1004': PageSetup sınıfının PaperSize özelliği kurulamıyor)

hatası alıyorum

 

[asi_kral]

.PaperSize = xlPaperEnvelopeC5

kısmına geldiğinde hata mesajı veriyor.

(Run-time error '1004': PageSetup sınıfının PaperSize özelliği kurulamıyor)

hatası alıyorum

Hata aldığınız dosyanızı yükler misiniz ?

 

[sametumur]

dosyayı ekledim.

yönetici şifresi:123456

ilk seferde yazıcı seçip yazdırabiliyor. ancak bir kaç sefer ve yazıcı değişikliği söz konusu olunca hata alıyorum.

 

[sametumur]

yalnız xlPaperEnvelopeC5
için değil,

xlPaperEnvelopeB5 ve xlPaperA4 için de butonlara basınca hata alıyorum.

 

[asi_kral]

dosyayı ekledim.

yönetici şifresi:123456

ilk seferde yazıcı seçip yazdırabiliyor. ancak bir kaç sefer ve yazıcı değişikliği söz konusu olunca hata alıyorum.

Yaızıcının özelliklerinden kaynaklanıyor hata almanız büyük ihtimalle. Yazıcınızın desteklediği bir özellikte deneme yapalım daha net bilgi olur

 

[sametumur]

ancak bu kodları hiç kullanamıyor değilim.

1. kodları farklı bir excell çalışma sayfasında kullandığım zaman sıkıntı yaşamadığım zamanlar da oldu. bu çalışma sayfası için de sıkıntı yaşamadığım zamanlar oldu.

2. sadece yazıcı deil, Microsoft XPS Document Writer ve Adobe PDF yazıcılarını seçtiğim de bile (yani bilgisayara kaydederken) bu hatayı alıyorum. yani yazıcının desteklememesi gibi bir şey söz konusu olamayacağını düşünüyorum.

sonuç olarak yazıcı bu özellikleri desteklemese hiç bir zaman yazdırmaz... (ki kullandığım yazıcı da oldukça iyi)

 

[sametumur]

Arkadaşlar, Problemin çözümüyle ilgili fikri olan var mı?