Print On Both Sides Hk.

[thegodable]

Merhaba,

50 sheetlik bir dökümanım var, her bir sheet 1 sayfa. Amacım birinci sheetin arkasına ikinci sheeti yazdırmak, ardından 3ün arkasına 4. gibi devam edecek.
Office 2010 kullanıyorum.
Hemen hemen çoğu print varyasyonlarını denedim fakat olmadı. Yardımlarınızı rica ediyorum.

 

[Huseyinkis]

Merhaba,

50 sheetlik bir dökümanım var, her bir sheet 1 sayfa. Amacım birinci sheetin arkasına ikinci sheeti yazdırmak, ardından 3ün arkasına 4. gibi devam edecek.
Office 2010 kullanıyorum.
Hemen hemen çoğu print varyasyonlarını denedim fakat olmadı. Yardımlarınızı rica ediyorum.

Ekli kodları denermisiniz.

Sub Yazdır()
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.PrintOut
Next
End Sub

 

[MURATYALCIN1978]

Sürekli kağıda çıktı almak için yardım

merhaba vermiş olduğunuz kodlara benimde ihtiyacım oldu ve çalışıyor.
Benim başka bir sorum olacak nokta vuruşlu printerda excell den döküm almaya çalıştığımda ilk sayfayı düzgün ikinci sayfa ve ondan sonrakileri yazarken sorun oluşuyor. Printer ayarını yaptım ve letter olarak ta tanımladım sorunum çözülmedi Excell de kod yazarak işimi çözme gibi durumum olabilirmi?

 

[thegodable]

Makroyu denedim fakat olmuyor.

 

[polis-53]

Sub Sayfaları_Yazdır_Polis()
Dim asi As String, Polis, a As Long
Polis = InputBox("Kopya Sayısı", "Kopya Sayısı Giriniz")
If Polis = "" Then Polis = 1
asi = Application.Dialogs(xlDialogPrinterSetup).Show
If asi = False Then Exit Sub
For a = 2 To 12
Sheets(a).PrintOut copies:=Polis
Next
MsgBox "İşelm Tamamlandı", vbInformation, " "
End Sub

 

[thegodable]

Yine arkalı önlü yazdırmıyor. Tek bir sheet üzerinde sorunsuz arkalı önlü yazıyor fakat istediğim şekilde olmuyor.