yazdırma kodu

[yaşar681]

excel dosyası sayfa2 ye yazdır ikonu ekledim ama buna nasıl bir kod yazmalıyım ve bu kod öyle bi kod olmalı ki yazdır dediğimde kaç sayfa yazılacağını sormalı ve yazılan sayfayı tek bir bütün olarak yazıcıdan çıkartabilmeli bunun için sizden yardım istiyorum

 

[ftekin]

Kopya sayısına göre yazıcıdan yazdırma kodui aşağıda.Yanlız bir bütün olaraktan kastınız nedir?

Dim Kopya As Integer
Kopya = InputBox("Kopya Sayısı")
ActiveWindow.SelectedSheets.PrintOut Copies:=Kopya

 

[yaşar681]

bütün olarak

yani yazdırma işlemine geçince a4 sayfasını 8 e bölüyor 8 sayfa çıkarıyor yani parça parça çıkarıyor

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Sub Düğme1_Tıklat()
On Error Resume Next
s = Application.InputBox("Kopya sayısı girin", Format(Date, "dd/mm/yyyy"))
[a1:g20].PrintOut Copies:=s
End Sub