TEXTBOX yazdırma

[osmanfenerli1907]

MERHABALAR
ben userform1 deki commandbutton1 e tıklayınca textbox1 i textbox2 de yazan yazı büyüklüğüne göre yazdırsın istiyorum.Ama yazma işleminden önce hangi yazıcı olacağını sorsun
iyi GÜNLER

 

[ileriexcel]

Private Sub CommandButton1_Click()
TextBox1.Font.Size = TextBox2
[A1] = TextBox1
ActiveSheet.PageSetup.PrintArea = "$A$1"
ActiveSheet.PrintOut Copies:=1
End Sub

 

[osmanfenerli1907]

hocam teşekkürler
ama bağlı yazıcı yoksa uyarı versin

 

[osmanfenerli1907]

Hocam birde direk textboxtan yazdıramazmıyız.
A1 E aktarmadan

 

[ileriexcel]

size yazıcı seçme seçeneği sunar.
Private Sub CommandButton1_Click()
TextBox1.Font.Size = TextBox2
[A1] = TextBox1
ActiveSheet.PageSetup.PrintArea = "$A$1"
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveSheet.PrintOut Copies:=1
End Sub

 

[osmanfenerli1907]

yazıcı hiç bağılı değilse direk uyarı gelse