Yazdırma Alanından Sadece Tek veya Çift Sayfaları Yazdırma

[downsoon]

Merhabalar;

Elimdeki excel sayfasında sadece çift veya tek sayları yazdırmak istiyorum. Bunu yapabileceğim bir formül var mı acaba? Siteden bi komut buldum ama excel 2007 de çalışmadı. Komut :

Dim Sayfa As Integer
Dim i As Integer

Sayfa = InputBox("Toplam kaç sayfa var?")

For i = 1 To Sayfa Step 2
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1, Collate:=True

Next i
End Sub

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Sartli_Yazdir()
 
    Dim say As Integer, sart As Byte, i As Integer
 
    say = ExecuteExcel4Macro("Get.Document(50)")
 
    If say < 2 Then
        ActiveSheet.PrintOut
        Exit Sub
    End If
 
    sart = [B][COLOR=red]0[/COLOR][/B] [COLOR=darkgreen][B]'tek sayfalar için 1,  çift sayfalar için 0 yazın.[/B][/COLOR]
    For i = 1 To say
        If i Mod 2 = sart Then
            ActiveSheet.PrintOut i, i
        End If
    Next i
 
End Sub

.

 

[downsoon]

Çok teşekkür ederim Ömer Bey sorunsuz bir şekilde çalışıyor.