yazdırma makrosu

[üveyin]

merhabalar,
sayfa1 için yazdırma makrosu konusunda yardım edermisiniz. yapmak istediğim sayfa1 de oluşturacagım butona basınca ayarlı sayfamı kopya sayı girerek yazdırmak istiyorum teşekkürler.

 

[uzmanamele]

Merhaba

Benim makinede yazıcı tanımlı değil, siz deneyiniz.

Sub Makro1()
yaz = InputBox("kopya sayısı:")
 Sheets("Şablon").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=yaz, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

Makro kaydet yöntemi ile kod bloğuna ulaşırsınız. buradan inputBox ile kopya sayısını ilave edersiniz.

 

[üveyin]

teşekkür ederim oldu. bu istegime de uygun olursa önizleme de yaptırabilirmiyiz.

 

[uzmanamele]

teşekkür ederim oldu. bu istegime de uygun olursa önizleme de yaptırabilirmiyiz.

Merhaba
Deneyiniz.

Sub Makro1()
yaz = InputBox("kopya sayısı:")
 Sheets("Şablon").Select
 ActiveWindow.SelectedSheets.PrintPreview
    ActiveWindow.SelectedSheets.PrintOut Copies:=yaz, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

 

[üveyin]

çok teşekkür ederim tam istediğim makro buydu emeğinize sağlık