Hazır Script – Hazır Kod

Asp ile word dökümani yaratarak print almak

Bu kod ile asp ile word dökümanina yazmis oldugumuz veriyi otomatik olarak yazicidan çikti olarak alabiliyoruz.

codeDivStart()

<%@ LANGUAGE="VBSCRIPT" %>

<%

Dim strWordDosyasi

Set strWordDosyasi = CreateObject("Word.Document")

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

%>