Soru TextBox Print Kodu

[massgrave]

Formdaki TextBox1 Değerini Nasıl Print ederiz?

 

[Korhan Ayhan]

Formu yazdırabilirsiniz.

 

[massgrave]

Textbox degerini disa alip yazdirmam gerekiyor. Form yazdirinca yarim yamalak 2 sayfa halinde cikiyor hersey

 

[massgrave]

Yada şu şekilde işimi görür.
Butona tıklandığında;
TextBox1.Text değerini yeni excel sayfası açıp (dışa aktar tarzında) Yeni excel sayfasının B3 hücresine yaz.
B2 hücresine ise "DENEME" yaz.
Bunun kodunu yazabilirseniz kendime göre düzenleyebilirim.

 

[Korhan Ayhan]

Deneyiniz.

WorkBooks.Add
Sheets(1).Range("B3") = TextBox1.Value
Sheets(1).Range("B2") = "DENEME"

 

[massgrave]

Butona tıklandığında;
TextBox1.Text değerini yeni excel sayfası açıp (dışa aktar tarzında) Yeni excel sayfasının B3 hücresine yaz.
B2 hücresine ise "DENEME" yaz.

 

[Korhan Ayhan]

Deneyiniz.

WorkSheets.Add
ActiveSheet.Range("B3") = TextBox1.Value
ActiveSheet.Range("B2") = "DENEME"

 

[massgrave]

Teşekkürler fakat 2 sorum daha olacak.
1- Yeni pcneredeki bir excel sayfasına aktarmak için ne kullanmalı. çalışma sayfasından bağımsız olarak?
2- Hücreleri biçimlendirmek için gereken kodlar hali hazırda elinizde varsa paylaşırsanız sevinirim.
Örneğin A1 hücresini yazı font buyuklulu 20 punto, A1 ile C1 hücresi birlessin. Gibisinden.

 

[Korhan Ayhan]

İlk önerdiğim kod yeni excel dosyası oluşturup verileri sayfaya yazar.

İkinci önerdiğim kod ise varolan kitap içinde yeni sayfa oluşturup verileri yazar.

Diğer komutları öğrenmenin en basit yolu makro kaydet yöntemidir.

 

[massgrave]

Anladım teşekkür ederim. Karşılaştığım bir sorun var. Kayıt yaparken TEXTBOX ile Örneğin;
AHMET
MEHMET yazıyorum (ENTER ile alt satıra geçerek.) veriyi çağırdığım zaman textboxda da aynı şekilde altalta görünüyor.
Fakat;

Sheets(1).Range("B8") = "ISIM"
Sheets(1).Range("C8") = TextBox3.Value

Kodu ile hücreye vereyi çekince aktardığı excel sayfasındaki hücrede AHMETMEHMET olarak görünüyor. Bunu çözmenin bir yolu var mı?

Diğer bir sorum ise Yeni excel sayfasında açılan sayfayı aşağıdaki kod ile PDF'e çeviriyorum.
Yalnız PDF sayfası ile beraber Yeni açılan Kitap1 excel sayfasıda açık durumda oluyor. PDF açıldığında Kitap1 sayfasından tamamen çıkış yapmak istiyorum. Application.Quit dediğim zaman var olan kullandığım excel sayfasınıda kapatmaya zorluyor. Nasıl yapabilirim? Ayrıca PDF'de baskı önizlemeye direk geçmek için ne yapmalıyım?

Dim Yol As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Yol = ThisWorkbook.Path
say = CreateObject("Scripting.FileSystemObject").getfolder(Yol).Files.Count + 1


Sheets("TABLO").PageSetup.PrintArea = "$A$1:$AV$75"


Sheets(Array("TABLO")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & say & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "işlem tamam"

 

[erenb]

Diğer bir sorum ise Yeni excel sayfasında açılan sayfayı aşağıdaki kod ile PDF'e çeviriyorum.
Yalnız PDF sayfası ile beraber Yeni açılan Kitap1 excel sayfasıda açık durumda oluyor. PDF açıldığında Kitap1 sayfasından tamamen çıkış yapmak istiyorum. Application.Quit dediğim zaman var olan kullandığım excel sayfasınıda kapatmaya zorluyor. Nasıl yapabilirim? Ayrıca PDF'de baskı önizlemeye direk geçmek için ne yapmalıyım?

Aşağıdaki kodları deneyiniz .
ActiveWorkbook.Save ' eğer kayıt etmek istiyorsanız burayı kullanın aksi takdirde kullanmayın ActiveWorkbook.Close

 

[Korhan Ayhan]

Veriyi aktardığınız sütunu "Metni Kaydır" olarak biçimlendirirseniz veriyi hücrede altalta görebilirsiniz.

 

[Muzaffer Ali]

Eğer metni kaydır kullanmak istemezseniz aşağıdaki kodu kullanın.

Sheets(1).Range("C8") = Replace(TextBox1.Value, Chr(13), " ")