aktif sayfanın yazdırılması

[akd]

Merhaba arkadaşlar,
Ben yazışmaları yazdığım bir Word belgem var,
alt alta 60-65 sayfa yazılar var,
aradaki sayfalardan düzenleme yapıp yazdır tuşuna basınca
yalnızca aktif olan sayfanın yazdırılması için,
nasıl bir kod yazmam gerek.
İlgilenen arkadalara şimdiden çok teşekkürlerimi sunarım

 

[uzmanamele]

yazdırma işleminde; dosya/yazdır menüsünden geçerli sayfayı işaretleyin

 

[akd]

sayın arkadaşım,
bu kadarını herkes biliyor zaten,
kod ile otomatik olaması gerek,
Yani yazdır tuşuna tıklayınca,
otomatik olarak aktif sayfayı yazdırması.
olay bu.

 

[hsayar]

arkadaşın dediği şu 65 sayfalı word belgesinin içinde ve 50 sayfada isem 50 sayfayı yaz.

ilginç bir soru cevabı bende bekliyorum.

 

[hamitcan]

Makro kaydet şeklinde bir kod yazdım. Umarım doğru anlamışımdır.

Private Sub CommandButton1_Click()
    Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub

 

[akd]

merhaba sayın hamitcan,
butona degilde, normal yerleşik menülerdeki yazdır butonuna kodu nasıl uygularız.
iyi çalışmalar...

 

[Merhum İdris SERDAR]

sayın arkadaşım,
bu kadarını herkes biliyor zaten,
kod ile otomatik olaması gerek,
Yani yazdır tuşuna tıklayınca,
otomatik olarak aktif sayfayı yazdırması.
olay bu.

Sub FilePrint()
With Dialogs(wdDialogFilePrint)
.Range = 2
.Show
End With
End Sub

Veya;

Sub PrintCurr()

Application.PrintOut FileName:="", Range:=wdPrintCurrentPage

End Sub


kodlarını deneyin.

 

[hamitcan]

Zannedersem Dosya menüsü içinde bir alt menü oluşturup isteğiniz olabilir. Ben şahsen daha önce böyle bir uygulamayı Word içinde yapmadım.Ama Excel ile aralarında pek fark olmasa gerek. Evde yapmaya çalışacam. Bu arada forumda fikri olan da çıkabilir.

 

[akd]

Malesef olmuyor arkadaşlar,
yine hepsini yazıyor

 

[Merhum İdris SERDAR]

Malesef olmuyor arkadaşlar,
yine hepsini yazıyor

Bende oluyor.
Ekteki dosyayı inceleyin.
Menülerin en sonuna eklediğim. "aktif Sayfa" düğmesine basarsanız, içinde olduğunuz sayfayı yazıcıya gönderir.

.

 

[akd]

merhaba sayın yurttas,
sizin yaptığınız menü malefsef belge ile gelmedi,
menülerin sonuna bende menü ekliyorum ama ona ilgili makroyu atayamıyorum.
o menü düymesine makronun nasıl atandığını anlatabilirmiiniz.
İyi çalışmalar...

 

[Merhum İdris SERDAR]

1. Bu kodu ALT+F11 tuşlarına aynı anda basın.

Gelen This Document'a

Sub PrintCurr()

Application.PrintOut FileName:="", Range:=wdPrintCurrentPage

End Sub

bu kodu yazın. Ve Disket resmine basarak kaydedin. Sonra burayı kapatın.

2. Word sayfasında Tools/Customize/Commands/Macros'u seçin.

3. Save in'de macronun kayıtlı olduğu yeri bulun.

4. Macroyu ilgil yerden fare ile sürüklüyerek menüye yerleştirin.

5. Üzerinde bunun sağ klik yaparak ismini ve şeklini düzelttikten sonra. Açılan pencereyi kapatın.

Düğmeniz artık menüde işlem görür duruma gelmiş olur.

.

 

[akd]

Merhaba sayın yurttas,
sizi yoruyorum hakkınızı helal edin,
3. Save in'de macronun kayıtlı olduğu yeri bulun.
bu kısmı bulamadım
makroyu hem Tools/Customize/Commands/Macros'u buluyorum
ama mausla sürükleyemiyorum
hemde sayfadaki araçlar/makro/makrolarda buluyorum ama
mausla sürükleyip götüremiyorum.
lütfen 3. maddeyi daha açıkllayıcı anlatırsanız sevinirim.

 

[Merhum İdris SERDAR]

Merhaba sayın yurttas,
sizi yoruyorum hakkınızı helal edin,
3. Save in'de macronun kayıtlı olduğu yeri bulun.
bu kısmı bulamadım
makroyu hem Tools/Customize/Commands/Macros'u buluyorum
ama mausla sürükleyemiyorum
hemde sayfadaki araçlar/makro/makrolarda buluyorum ama
mausla sürükleyip götüremiyorum.
lütfen 3. maddeyi daha açıkllayıcı anlatırsanız sevinirim.

Save in 'in çentiğine tıkladığınızda karşınızda 2 seçenek gelir. Macro bu iki seçeneğin birisinde yer alıyordur. İki seçeneği deneyin.

Macro sağ taraftaki Commands penceresinde görünecektir.

Macronun üzerine tıklayıp, elinizi kaldırmadan bunu üstte Menülerin olduğu yere götürüp, bırakın.

Ekteki örneğe bakın.


.

 

[akd]

Merhaba sayın yurttas,
anladım ve yaptım, çok çok teşekkürler ederim
İyi çalışmalar