Çıktı alma

[selcuk23]

Merhabalar, yazdıracağım alan iki sayfalı ilkinde 2 adet ikincisinde 1 adet çıktı almam gerekli tek butonla mümkün olur mu. yardımcı olur musunuz ?

 

[yanginci34]

ilkinde derken yazdıracağınız sayfaların ilkini 2 adet 2. sini 1 adetmi?

 

[selcuk23]

Evet aynen tek seferde ilk sayfadan iki çıktı ikinci sayfadan bir çıktı alınacak şekilde.

 

[ASLAN7410]

Merhaba, aşağıdaki kodu bir modüle yapıştırıp butona bağlayın.

Sub Yazdir()
    Sheets("Sayfa1").PrintOut From:=1, To:=1, Copies:=2
    Sheets("Sayfa2").PrintOut From:=1, To:=1, Copies:=1
End Sub

 

[selcuk23]

Malesef kod hata verdi.

 

[ASLAN7410]

Merhaba.

Bende kodlar gayet güzel çalışıyor, dosyanızdaki sayfaların isimleri farklı o zaman, aşağıdaki gibi deneyin, olmaz ise, aynı dosyanızla ilgili küçük bir örnek gönderirseniz, ilgilenen arkadaşlar çıkacaktır.

Sub Yazdir()
    Sheets(1).PrintOut From:=1, To:=1, Copies:=2
    Sheets(2).PrintOut From:=1, To:=1, Copies:=1
End Sub

 

[selcuk23]

Bu kod çalışıyor ama yazdırmak istediğim sayfayı yazdırmıyor ana sayfayı yazdırıyor.. örnek belge ekledim. belgenin 7. sayfasında işlem yapacam. bakarsanız sevinirim.

https://www.dosyaupload.com/5oH5

 

[ASLAN7410]

Aşağıdaki gibi deneyin.

Sub Yazdir()
    Sheets("Sayfa7").PrintOut From:=1, To:=1, Copies:=2
    Sheets("Sayfa7").PrintOut From:=2, To:=2, Copies:=1
End Sub

 

[selcuk23]

Teşekkürler, oldu emeğinize sağlık...