makro hizalama

[özmer_mühendislik]

ben üst bilgi ile alakalı bir makro hazırladım ve bir butona bagladım
ben bu butona bastıgımda fırma bilgilerini kagıdın üst kısmına yerlestiriyor ama [a1] hücresine girdigim veri ıle cakısıyor bu sıkıntımın giderilebilmesi için makronun calıstıgı zaman yazılanları hizalaması gerekiyor yanı [a1] hücresi ile cakısmaması gerkiyor. İLGİLENEN ARKADASLARA ŞİMDİDEN TEŞEKKÜRLER...

 

[özmer_mühendislik]

kimse ilgilenmediği için tekrar teşekkür ederim....

 

[altanson]

örnek dosyanızı eklerseniz mutlaka ilgilenenler çıkacaktır.

 

[özmer_mühendislik]

Sub üst_bilgi()
ActiveSheet.PageSetup.LeftHeaderPicture.Filename = _
"C:\Documents and Settings\COMPUTER\Belgelerim\Resimlerim\logoxx.png"
 
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = "&G"
.CenterHeader = _
"&""castellar,kalın""&11ABC MÜHENDİSLİK LTD ŞTİ&" & "........................................................................................."
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
 
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
 
End Sub

BUNLAR HALİ HAZIRDA KULLANDIGIM KODLAR...

 

[agent1980]

Merhabalar...

Fikir vermesi açısından
.TopMargin = Application.InchesToPoints(1) "1" değerini değiştirerek sayfa boşluklarını değiştirebiliyorsunuz.Resminizi göremediğim için net değeri veremedim o bölüme 1 den büyük bir değer girebilirsiniz.
Umarım işinize yarar.

 

[özmer_mühendislik]

Merhabalar...

Fikir vermesi açısından
.TopMargin = Application.InchesToPoints(1) "1" değerini değiştirerek sayfa boşluklarını değiştirebiliyorsunuz.Resminizi göremediğim için net değeri veremedim o bölüme 1 den büyük bir değer girebilirsiniz.
Umarım işinize yarar.

teşekkür ederim cok işime yaradı...

 

[özmer_mühendislik]

mümkünse bu makroda düz cizgi cizdirebilmem için gerekli kodları verirmisiniz? yani ben resim ve hemen yanına yazı yazdırdım ve bunların altına her ikisini kapsayacak bir duz cizgi cizdirmek istiyorum . yardımızı bekliyorum..

 

[agent1980]

Tekrar merhabalar.
ABC mühendislik yazdığınız satırın başına "&U" tırnaklarda dahil olmak üzere eklerseniz yazınız altı çizgili olabilir. Kaynak yardım menüsü.

 

[özmer_mühendislik]

bi deneyeyım.. tesekkurler