Word'de Arkalı-Önlü Baskı

Soru: Winword 2.0ile çalışıyorum ve belgelerimi önlü arkalı bastırtmak isityorum. Bir HP Deskjet yazıcım bulunuyor fakat yazıcım sanırım bu işlemi desteklemiyor. Fakat sonradan aklıma bir şey geldi. Önce tek numaralı sayfaları bastırtıp sonra çift numaralı sayfaları sayfanın diğer yüzüne bastırtamaz mıyım?

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