Userformdaki Bilgileri Word'a Aktarmak

[ormann]

Sayın arkdaşlar ekteki resmi yazışma programındaki userformdan giriş yapılan kayıtlar a4 ve a5 sayfa çıktısı olarak alınıyor.Benim İstediğim bu bilgilerin userformdaki a4 ve a5 sayfalarını word'a aktar butonuyla word'a aktarabilirmiyiz.Yardımcı olurmusunuz ?.Saygılar

 

[leumruk]

Merhaba,
Örneği inceleyiniz. Biçimlerin birebir olması için tablo formatında eklettim. Çıktı alırken tablo çizgileri görünmeyecektir.

 

[ormann]

Çok teşekkür ederim ,Sayım Leumruk Bey

 

[ormann]

Merhaba,
Örneği inceleyiniz. Biçimlerin birebir olması için tablo formatında eklettim. Çıktı alırken tablo çizgileri görünmeyecektir.

Merhabalar;
Sayın hocam a4 Sayfasına Word'a aktar butonuna bastığımda kayıt a4 sayfa ebatında aktarılıyor. a5 sayfasını word'a aktar dediğimde kayıt yine a4 sayfa ebatında aktarılıyor.Acaba a5 sayfasını Word'a aktar dediğim zaman kayıt a5 sayfa ebatında,dikey olarak aktarılabilirmi ?.Ayrıca aktarılan sayfada tablo çizgileri hepten gizlenebilirmi ?

 

[leumruk]

Merhaba,
Kodlarınızı aşağıdakilerle değiştirdiğinizde tablodaki kılavuz çizgileri görünmeyecektir. Diğer isteğiniz zaten oluyor. Tekrar denedim. A4 ve A5 sayfasının tabloları farklı boyutlarda aktarılıyor.
Eklediğim satırı kırmızı renkle belirttim.

Private Sub CommandButton109_Click()
Sheets("a4").Range("c3:n38").Copy
Set WD = CreateObject("Word.Application")
WD.Visible = True
Set Dosya = WD.Documents.Add(DocumentType:=wdNewBlankDocument)
WD.Selection.PasteSpecial DataType:=10
[COLOR="DarkRed"]WD.ActiveWindow.View.TableGridlines = False[/COLOR]
End Sub
Private Sub CommandButton110_Click()
Sheets("A5").Range("c3:n38").Copy
Set WD = CreateObject("Word.Application")
WD.Visible = True
Set Dosya = WD.Documents.Add(DocumentType:=wdNewBlankDocument)
WD.Selection.PasteSpecial DataType:=10
[COLOR="DarkRed"]WD.ActiveWindow.View.TableGridlines = False[/COLOR]
End Sub