Yazıcı formunda il ve son sayfa adedini belirtmek..

[EKREM1661]

Selamlar ve hayırlı çalışmalar..! Arkadaşlar..

Aşağıdaki yazıcı formunu çağıran makroya ilk ve son sayfa adedi kutularına (ilk=1 ve son=1) eklemek istiyorum, fakat başaramadım..

Application.Dialogs(xlDialogPrint).Show

.....

sağlıklı günler dileğiyle..

 

[mehmett]

Yazıcı formunu çağırmaya gerek kalmadan aşağıdaki kod ile yazdırabilirsiniz.

İlk ve son sayfa için kırmızı değerleri değiştirin.

Sub Yazdır()
ActiveWindow.SelectedSheets.PrintOut From:=[COLOR=red]2[/COLOR], To:=[COLOR=red]3[/COLOR]
End Sub

 

[EKREM1661]

Sayın Mehmett Bey..! ilginiz için teşekkür ediyorum..

Konu sizin dedinizin gibi.. Yalnız, yazdırılacak kopya sayısını kendim belirliyorum,
sadece sayfa adedini her defasında 1.sayfa olarak otomatik yapabilirmiyiz.. (ne gerek var diye düşünebilirsiniz.)

(çünkü, isteğe göre sütunları makro ile genişleterek geniş kağıda yazdırıp, sonra tekrar eski haline gelen bir uygulamam var, sütunlar genişleyince yazdırma alanı 2.sayfaya taşıyor..boş satır ve sütunların tamamı gizli olduğu halde)

Bu nedenle böyle bir çözüm yolu düşündüm..sizin öneriniz daha da farklı olabilir..