Yanıt: Word'ün sıkıcı uyumsuzluklarından biri ile karşı karşıyasınız. Çünkü kullandığınız yazıcı, anlattığınız gibi bir işlemi normal şartlarda gerçekleştiremez. Biz size çözüm olarak tek / çift numaralı sayfaları basan makromuzu tavsiye ediyoruz. Kolay gelsin...
Sub MAIN Msg$= "Bu makro önce tek sonra çift sayfaları basar" Response= Msgbox (Msg$,"Tekçift makrosu",49) If Response [küçüktür ve büyüktür işaretleri] -1 Then Goto Son Dim Dig As Document Statistics GetCurValues Dig NumPages=Val(Dig.Pages) X=1 While X [Küçüktür işareti] = NumPages FilePrint.Range = 3,.Form = Str$(X),. To= Str$(X) X=X+2 Wend If NumPages = 1 Then Msg$ = "Tek sayfaların basımı tamamlandı" MsgBox Msg$, "Tekçift makrosu",48 Goto Son End If Msg$= "Birinci sayfa en öne gelecek şekilde sayfaları tekrar düzenleyin." MsgBox Msg$, "Tekçift makrosu",48 Msg$="Baskıya hazır olduğunuz zaman OK düğmesine basınız" MsgBox Msg$,"Tekçift makrosu",16 X=2 While X [Küçüktür işareti] = Numpages FilePrint.Range = 3,.Form=Str$(X),.To= Str$(X) X=X+2 Wend If NumPages Mod 2+1 Tehn Msg$= "Baskı Tamamlandı." MsgBox Msg$,"Tekçift makro",48 End if Son: End Sub