(21/05/2024, 11:09)erhan3479 yazdı: Bu kodu ekleyip denermisiniz.

PHP Kod:

Sub bosluksay()
Dim son
Dim i
son = Sheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row
For i = 2 To son
Sheets("Sayfa2").Cells(1, "e").Value = Sheets("Sayfa1").Cells(i, "a").Value
cevap = MsgBox(Sheets("Sayfa2").Cells(1, "e").Value & "Başvuru Numarasını Yazdırmak İstiyormusunuz?", vbYesNo + vbQuestion, "ONAY")
If cevap = vbNo Then
GoTo atla
Else

 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
atla:
End If
Next
End Sub 


her sayfanın onayı istenmeden yazdırmak mümkün mü hocam
tüm sayfaları tek seferde yazdırmak?