Resmi Yazı Programı

[sefaburan]

Arkadaşlar Hazırlamış olduğum resmi yazı programı ektedir. İhtiyacı olan kullanabilir.

Önerisi olan varsa lütfen söylesin.

Programda yapamadıklarım:
1- Anasayfada excel'in en altında benim bilgilerim olsun istiyorum, bunu ekleyemedim. sayfa sekmeleri olan bölümde (BKZ: "HAZIR" yazan bölüm)

2- Herhangi bir resmi yazının uzunluğu kısalığına göre satır ekleyip satır siliyorum sayfaya tam olarak oturması için. Bunun yerine yazının uzunluğu kısalığına göre A4 sayfaya uyacak şekilde otomatik ayarlanmaz mı? Örneğin: Anasayfada normal yazı butona bastığmızda, ordaki resmi yazı biraz uzun bir yazı, ben o yazı için A14 satırını genişlettim, sonra da A4 boyutuna uydurmak için alttan bir kaç tane satırı sildim, velhasıl, bunu satır silmemi gerektirmeden otomatik olarak A4 buyutuna uydurulamaz mı? Kısaltınca da aynı şekilde...

3- Programa ihtiyacı olanlar kullanabilirler.

4- Office 2013 Pro'da sadece officede kullanacağım varsayılan yazıcı seçemiyorum. Yani şu an iki tane yazıcı kullanıyorum, office yazılarını varsayılan yazıcımdan çıkartmıyorum, ama makro kodu ile yazdır butonu koyup, varsayılan olmayan yazıcımdan çıkarmak istiyorum lakin buton koyduğumda yazıcı seçemiyorum. Direk varsayılan yazıcımdan çıkıyor.

 

[Baggwell]

Bende bir soru sormak istiyorum alttaki sayfalar bölümünü nasıl kaldırdınız .)

 

[Emir Hüseyin Çoban]

Programda yapamadıklarım:
1- Anasayfada excel'in en altında benim bilgilerim olsun istiyorum, bunu ekleyemedim. sayfa sekmeleri olan bölümde (BKZ: "HAZIR" yazan bölüm)

. . .

Burada yapmak istediğinizi ve nereden bahsettiğinizi anlayamadım. Anasayfa dediğiniz sanırım Giriş sayfası mı ?

. . .

Bende bir soru sormak istiyorum alttaki sayfalar bölümünü nasıl kaldırdınız .)

Makro kaydet i araştırınız.

Sub sekmelerigizle()
    ActiveWindow.DisplayWorkbookTabs = False
End Sub

Sub sekmelerigöster()
    ActiveWindow.DisplayWorkbookTabs = True
End Sub

. . .

 

[sefaburan]

Bende bir soru sormak istiyorum alttaki sayfalar bölümünü nasıl kaldırdınız .)

cevap verilmiş. de eğer dersen ki çok anlamam makrodan falan, o halde excel seçeneklerinden de gizleyebilirsin

 

[sefaburan]

. . .

Burada yapmak istediğinizi ve nereden bahsettiğinizi anlayamadım. Anasayfa dediğiniz sanırım Giriş sayfası mı ?

. . .


. . .

evet hüseyin abi giriş sayfası.
sayfa sekmelerinin olduğu bölüm var ya. o bar'ın üstünde.

 

[Emir Hüseyin Çoban]

. . .

2 için ekteği dosyayı inceleyiniz. Açıklamaları okuyuz.

. . .

 

[Emir Hüseyin Çoban]

. . .

1 için boş bir modüle aşağıda kodları yapıştırın. Daha sonra dosyanızı kaydedipi kapatın.

Sub Auto_Open()
Application.StatusBar = " Hüseyin Çoban "
End Sub

. . .

 

[sefaburan]

. . .

2 için ekteği dosyayı inceleyiniz. Açıklamaları okuyuz.

. . .

ya ben anlayamadım ya da istediğim olmamış abi. zira yazı bölümünü genişledince adres bölümü sayfaanın dışında kalıyor. ben istiyorum ki yazı bölümünü genişletip daraltmam en başın başlangıc satırını ve en sonun bitiş satırını etkilemesin. yani her halukarda A4 boyutuna sığsın.

yani ben istiyorum ki. worddeki alt bilgi ve üst bilgi gibi, en alttaki adres bölümü ile üstteki kurum isminin olduğu bölüm hiç etkilenmesin yazıdaki genişleme ya da daralmadan....

 

[sefaburan]

. . .

1 için boş bir modüle aşağıda kodları yapıştırın. Daha sonra dosyanızı kaydedipi kapatın.

Sub Auto_Open()
Application.StatusBar = " Hüseyin Çoban "
End Sub

. . .

çok iyi çok teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Yazı bölümünü çok fazla genişletirsen, kodlarda bir yere kadar işleyecektir. Bu durumda Önizleme yap diye uyaracaktır.

Yazı bölümüne 2, 5, 10 satırlık olmak üzere ayrı ayrı veri girerek denemeler yap.
Benim eklediğim butonda kodlar.

. . .

 

[sefaburan]

. . .

Yazı bölümünü çok fazla genişletirsen, kodlarda bir yere kadar işleyecektir. Bu durumda Önizleme yap diye uyaracaktır.

Yazı bölümüne 2, 5, 10 satırlık olmak üzere ayrı ayrı veri girerek denemeler yap.
Benim eklediğim butonda kodlar.

. . .

neyse... ben anlayamadım, yetmedi kapasite

kendimce basitleştireyim soruyu. worddeki gibi altbilgi üstbilgi yapabiliyor muyuz.

 

[Emir Hüseyin Çoban]

. . .

4 için

Sub KOD_YAZICI()
Yazıcı = Application.Dialogs(xlDialogPrinterSetup).Show
If Yazıcı = False Then Exit Sub

[COLOR="Green"]'YAZDIRMA KODLARINIZ[/COLOR]

End Sub

. . .

 

[sefaburan]

. . .

4 için

Sub KOD_YAZICI()
Yazıcı = Application.Dialogs(xlDialogPrinterSetup).Show
If Yazıcı = False Then Exit Sub

[COLOR="Green"]'YAZDIRMA KODLARINIZ[/COLOR]

End Sub

. . .

hüseyin abi çok emeğin geçti ALLAH razı olsun. da ben dialog penceresinin açılmasını istemiyorum. direk butona bastığımda bir paraflı bir parafsız şekilde yazdırsın istiyorum. office 2007'de yapmıştım. makro kaydet yoluyla yazıcı seçip sonra senin verdiğin paraflı yazıcı kodlarıyla birleştirmiştim de office 2013 kabul etmedi bunu.