A1 ve B1 Satırına yazdığım sayfaları yazdıran makro

[semihozturk1987]

Arkadaşlar eğer var ise şimdiden özür dilerim ama yaklaşık 1 saattir arıyorum. Bulduğum her şeyi de birleştirmeye çalıştım ama bu şekilde bir şey bulamadım.

Benim yapmaya çalıştığım şey,
örneğin bir sekme içerisinde birden fazla form var. ben hepsini yazdırma alanı olarak ayaladım. yani yazıcıya girip yazdır dediğimde hepsi kusursuz şekilde çıkıyor. Örneğin bana 2 ve 3. rapor lazımken de yazıcıya girip 2. 3. sayfa dediğimde o raporlar çıkıyor.

Şu an yapmak istediğim;
A1e 2, B1e 3 girdiğimde ve yazdır butonuna bastığımda direk yazdırma alanı olarak belirlediğim 2. ve 3. alanı yazdırması. ya da A1e 3 B1e 50 yazdığımda. 3dahil 50 dahil aradaki hepsini çıkartması.

 

[veyselemre]

Yazdırma satırınızı aşağıdaki gibi düzenleyin

ActiveWindow.SelectedSheets.PrintOut [COLOR=Red]From:=[A1], To:=[B1][/COLOR], Copies:=1

 

[semihozturk1987]

Yazdırma satırınızı aşağıdaki gibi düzenleyin

ActiveWindow.SelectedSheets.PrintOut [COLOR=Red]From:=[A1], To:=[B1][/COLOR], Copies:=1

Veysel Bey,
Ne kadar teşekkür etsem azdır. Çok sağolun

 

[semihozturk1987]

Peki Veysel Bey, örneğin bir butonla da sadece A1 e yazdığımızı yazdırmak istesek. From ve to komutlarını kaldırıp ne yazmamız gerekiyor yerine?

 

[veyselemre]

ActiveWindow.SelectedSheets.PrintOut [COLOR=Red]From:=[A1], To:=[A1][/COLOR], Copies:=1

 

[semihozturk1987]

ActiveWindow.SelectedSheets.PrintOut [COLOR=Red]From:=[A1], To:=[A1][/COLOR], Copies:=1

teşekkürler. ben de from-to olayı kalkacaktır diye düşünüyorum yarım saattir.