Bilgisayar Bölümü ASP Kod ve Script Arşivi


Word dosyasına yazı yazma ve print alma

<%@ 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 "24saatASP 24saatASP 24saatASP 24saatASP"
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
%>




----------------Print alma---------------

Bu kod ile ASP ile word dökümanına yazmış olduğumuz veriyi otomatik olarak yazıcıdan çıktı olarak alabiliyoruz.

<%@ 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
%>

ASP Kitabı

 

Faydalılar: Altın Fiyatları |Hediye Kolye | pırlanta fiyatları
Ana Sayfa  Sık Kullanılanlara Ekle   admin[at]bilgisayarbolumu.com | © 2006 - 2022 Bilgisayarbolumu.com