txt文件:
我們提供的服務有:做網站、成都網站建設、微信公眾號開發(fā)、網站優(yōu)化、網站認證、東烏珠穆沁ssl等。為近1000家企事業(yè)單位解決了網站和推廣的問題。提供周到的售前咨詢和貼心的售后服務,是有科學管理、有技術的東烏珠穆沁網站制作公司
procedure TForm1.Button1Click(Sender: TObject);
var
MyFile: TextFile;
SourceFile:TextFile;
Tmp:String;
begin
AssignPrn(MyFile);
AssignFile(SourceFile,'FilePath');
Reset(SourceFile);
Rewrite(MyFile);
Readln(SourceFile,Tmp);
While Not EOF(SourceFile) do
Begin
Writeln(MyFile, Tmp);
Readln(SourceFile,Tmp);
System.CloseFile(MyFile);
end;
圖形文件需要TPrinter.canvas來打印了,
工具箱,然后隨便選擇一項,右鍵 選擇項,在.com控件里,microsoft bar ctrol 9.0
先拖過來控件PrintDocument1,然后雙擊PrintDocument1,在它的PrintPage事件中加入代碼如下:
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
dim a as String
a="abcd"
Dim mypen As Pen = New Pen(Color.Blue, 2)
e.Graphics.DrawString(a, New Font("宋體", 20), New Pen(Color.Black, 1).Brush, 30, 30)
End Sub
調用下面語句可直接用默認打印機打印出來:
PrintDocument1.Print()
新聞名稱:vb.net打印控件,vb編寫打印功能
文章源于:http://muchs.cn/article26/hcghjg.html
成都網站建設公司_創(chuàng)新互聯,為您提供用戶體驗、域名注冊、企業(yè)建站、App設計、網站導航、企業(yè)網站制作
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯