çoklu yazdırma yardım

[abdullahss]

yazıcımdan aynı anda 1,2,ve 3, sayfayı yazdırmak istiyorum ve yazdır dedigimde her sayfanın h11 ' 1 artmalı
bunu nasıl yapabilirim

 

[karagöz55]

Sub Bir_artır()
Range("A1").Select
i = ActiveCell
ActiveCell.Value = (i + 1)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Yukarıdaki formül sorunuzun büyük bir bölümünü cevaplayacaktır. Diğer ayarları yapmak size kalmış,
Kolay gelsin

 

[abdullahss]

2ve 3, sayfalarıda yazdırmak istiyorum aynı anda

 

[abdullahss]

ekteki ayfaya yazdır dedigimde 1-2-3, sayfa yazmalı ve h 11 hücresi 1 artmalı sanırım daha açıklayıcı oldu ben yapamadım 10 gündür ugraşıyorum

 

[abdullahss]

"PERFORELİYÜZ", "DÜZ YÜZ (2)", "DÜZ YÜZ" olan sayfalar yazmalı ve her çıktıda h11 hücresi 1 artmalı

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub YAZDIR()
    Dim X As Byte
    For X = 1 To 3
    Sheets(X).PrintOut Copies:=1
    Sheets(X).[H11] = Sheets(X).[H11] + 1
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[Zeki Gürsoy]

Sub Print_Out()
Dim i%

For i = 1 To 3
    [h11] = CInt(Val([h11]) + 1)
    ActiveSheet.PrintOut
    Application.Wait Now + TimeSerial(0, 0, 1)
Next

End Sub

 

[abdullahss]

teşekkürler bu oldu
arkadaşlar

 

[abdullahss]

bir hücreye mesela k1 e 10 desem 1o a kadar yazdırabilirmiyim

 

[karagöz55]

Ekteki dosyada MAKRO 2 yi çalıştır
İstediğiniz gibi oldu sanırım

 

[abdullahss]

evet hocam oldu sagolun bir hücreye mesela k1 e 10 desem 1o a kadar yazdırabilirmiyim

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Sub Düğme1_Tıklat()
For s = 1 To [k1]
Sheets(s).PrintOut
Next
End Sub

 

[abdullahss]

1-2ve 3. sayfada yapmam gerekiyor yazdırma işlemini ekteki dosyada uygulamalıyım

 

[abdullahss]

1-2-3 sayfası h11 1 artarak önce 50 kopya sonra 20 kopya yazdırabilirmiyim