merhaba arkadaşlar
forumdan yardımcı olan arkadaş(metinözlü) sayesinde aşağıdaki kodu kullanıyorum.yapmak istediğim ise bu kod ile birden fazla sayfa yazdırabilirmiyiz.eğer yazdırılırsa ikinci sayfayı yazdırmadan önce birinci sayfanın arkasını yerleştirin diye uyarı verilebilirmi?
Sub Düğme1_Tıklat()
Dim i As Integer
Dim a As Integer
a = 0
For i = 5 To 256 Step 63
If Cells(i, "c").Value = "" Then
a = a + 1
End If
Next i
If a = 0 Then
Sheets("sayfa1").PrintOut
Else
Sheets("sayfa1").PrintOut From:=1, To:=4 - a, Copies:=1, Collate:=True
End If
Sheets("Sayfa2").Select
End Sub
forumdan yardımcı olan arkadaş(metinözlü) sayesinde aşağıdaki kodu kullanıyorum.yapmak istediğim ise bu kod ile birden fazla sayfa yazdırabilirmiyiz.eğer yazdırılırsa ikinci sayfayı yazdırmadan önce birinci sayfanın arkasını yerleştirin diye uyarı verilebilirmi?
Sub Düğme1_Tıklat()
Dim i As Integer
Dim a As Integer
a = 0
For i = 5 To 256 Step 63
If Cells(i, "c").Value = "" Then
a = a + 1
End If
Next i
If a = 0 Then
Sheets("sayfa1").PrintOut
Else
Sheets("sayfa1").PrintOut From:=1, To:=4 - a, Copies:=1, Collate:=True
End If
Sheets("Sayfa2").Select
End Sub