Asp ile word dökümani yaratarak print almak

bLoOdLusT1912

Kadim Üye
1 Ağu 2007
5,470
41
Bu kod ile asp ile word dökümanina yazmis oldugumuz veriyi otomatik olarak yazicidan çikti olarak alabiliyoruz.


Kod:
<%@ LANGUAGE="VBSCRIPT" %> 
<% 
Dim strWordDosyasi 
Set strWordDosyasi = CreateObject("Word.********") 
strWordDosyasi.Application.Visible = True 


strWordDosyasi.content.Font.Bold = True 
strWordDosyasi.content.Font.Italic = True 
strWordDosyasi.content.Font.Underline = True 
strWordDosyasi.content.Font.Name = "Comic Sans MS" 
strWordDosyasi.content.Font.Size = 25 


strWordDosyasi.content.insertAfter "word1 word2 word3 word4" 
strWordDosyasi.content.InsertParagraphAfter 

strWordDosyasi.Words(1).Font.Size = 10 
strWordDosyasi.Words(1).Font.ColorIndex = 1 
strWordDosyasi.Words(2).Font.Size = 20 
strWordDosyasi.Words(2).Font.ColorIndex = 2 
strWordDosyasi.Words(3).Font.Size = 30 
strWordDosyasi.Words(3).Font.ColorIndex = 3 
strWordDosyasi.Words(4).Font.Size = 40 
strWordDosyasi.Words(4).Font.ColorIndex = 4 

strWordDosyasi.PrintOut 
Set strWordDosyasi = Nothing 
%>
 
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.