userformun tamamını A4 kağıdına yazdır

[şehiriçi]

Merhaba arkadaşlar ,
bu soruyu sormadan önce forumda ve internet ortamında araştırdım ama istedigim, yazdırma biçimini bulamadım.
Söyleki ,excel vba da userformun kendisini , tamamını yazdırmak istiyorum . userformun boyutu büyük olduğu için tamamını yazdıramıyorum. A4 kağıdını yatay yaparak ta olabilir .
Desteğinizi bekliyorum , saygılarımla ...

 

[karakrall01]

Anladığım kadarı ile userformda bulunan nesneleri resim olarak alıp yazdırmak istiyorsunuz. Bunun için userformu resim olarak excel içerisinde bir sayfaya kopyalayıp sonrasında yazdırma işlemi yapabilirsiniz.

Sub Userformyazdır()
    Dim sayfa As Worksheet

    
    ' Geçici bir çalışma sayfası oluşturuyoruz
    Set sayfa = Worksheets.Add
    
    '  Userformu resim olarak kopyala ve yapıştır
    UserForm1.CopyPicture xlScreen, xlPicture
    sayfa.Pictures.Paste.Select
    Selection.Top = 0
    Selection.Left = 0
End Sub

Kod aralığı size yol göstericektir, dosyanıza göre gerekli düzenlemeleri yaparsınız ayrıca yazdırma ile ilgili bir çok örnek mevcuttur kolay gelsin.

 

[şehiriçi]

 

[şehiriçi]

Merthaba karakrall01 ,

formceza.copyPicture burada yukarıdaki hatayı veriyor .

 

[şehiriçi]

Arkadaşlar hatırlatmak için sorumu tekrar yazıyorum .
excel vba da userformun kendisini , tamamını yazdırmak istiyorum . userformun boyutu büyük olduğu için tamamını yazdıramıyorum. A4 kağıdını yatay yaparak ta olabilir .
ilgilenen Tüm arkadaşlara desteğiniz için teşekkürler.