Thiệt Là Buồn Wá Đi

SanSomit Học Đây Pà Con Ui!!!


You are not connected. Please login or register

Vb-Làm việc với máy in

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down  Thông điệp [Trang 1 trong tổng số 1 trang]

1 Vb-Làm việc với máy in on Tue Feb 02, 2010 12:20 am

Admin


Admin
Chương 18:
Làm việc với máy in
--------oOo--------
Nội dung thảo luận:
- In đồ họa trong chương trình VB
- In văn bản trong chương trình VB
- In tài liệu nhiều trang trong chương trình VB
- Sử dụng hộp thoại Print, Page Setup, Print Preview
Trong chương này chúng ta sẽ học cách tích hợp chức năng in ấn vào trong form cũng như cách xử lý in ấn đồ họa, in văn bản và tài liệu nhiều trang.
Chú ý:
- Lớp đối tượng PrintDocument cung cấp nhiều chức năng in ấn hơn
- Chúng ta sử dụng các điều khiển hộp thoại PrintDialog, PrintPreViewDialog và PageSetupDialog để thực thi tác vụ in ấn.
- Để in tài liệu nhiều trang, chúng ta phải tạo ra thủ tục sử lý sự kiện PrintPage xử lý thao tác in mỗi lần từng trang tài liệu. Tuy nhiên hầu như các chức năng in ấn chúng ta đều được hỗ trợ trong thư viện System.Drawing.Printing.
1. Sử dụng lớp Printdocument
Printdocument là lớp bạn thường xuyên sử dụng khi in ấn. Việc sử dụng lớp này bằng cách chọn nó trên toolbox và thêm nó vào dự án như các điều khiển khác. Lớp này nằm trong thư viện System.Drawing.Printing. Bạn cần imports nó ra ở đầu chương trình khi muốn sử dụng. Bài tập MyPrintsGraphics sau đây sẽ hướng dẫn cách sử dụng đối tượng này.
1.1. Sử dụng điều khiển PrintDocument
Tìm hiểu chương trình:
Chương trình sẽ bao gồm một textbox cho phép nhập đường dẫn của file graphic cần in và một nút nhấn cho phép in ra. Vì ta không nối máy in nên ta sẽ lưu ra một file định dạng *.mdi.
Thiết kế giao diện:
Bạn tạo mới một Solution và thêm vào một dự án cùng tên là MyPrintsGraphics và thiết kế giao diện như hình dưới đây. Trong đó các đối tượng có thuộc tính như sau:
- TextBox1: thuộc tính text là đường dẫn đến file graphics của bạn. Ở đây là file NFS2SER.ICO tôi đã chép vào thư mục chứa dự án.
- Label1 và nút nhấn có text như hình.

Bạn cũng thêm vào điều khiển PrintDocument1 từ ToolBox.
Viết mã:
Trước hết ta tạo mới một module có tên ModulePrinting.vb chứa hàm PrintGraphic là hàm phục vụ in ấn sẽ được triệu gọi trong thủ tục Button1_Click. Nội dung của module như sau:
Imports System.Drawing.Printing
Module ModulePrinting
Public Sub PrintGraphic(ByVal sender As Object, _
ByVal ev As PrintPageEventArgs)
'Vẽ ảnh đồ họa bằng DrawImage
ev.Graphics.DrawImage _
(Image.FromFile(Form1.TextBox1.Text), _
ev.Graphics.VisibleClipBounds)
'Xác định không còn trang khác
ev.HasMorePages = False
End Sub
End Module
Thủ tục này là hạt nhân của tác vụ in ấn từng trang khi sự kiện PrintPage của điều khiển PrintDocument1 xảy ra sau lời gọi PrintDocument1.Print(). Trong đó, ev dùng để tham chiếu đến các thông số mà PrintDocument truyền vào. Ta dùng ev để lấy về đối tượng Graphics dùng vẽ ra máy in đồng thời sử dụng phương thức DrawImage để vẽ ảnh. Thuộc tính HasMorePage đặt là false để chỉ in trong một trang.
Trở lại cửa sổ thiết kế form1. Bạn vào chế độ Code Editor và đặt khai báo sau ở đầu Form1:
Imports System.Drawing.Printing
Tiếp theo ta tạo thủ tục Button1_Click như sau:

Private Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Try
AddHandler PrintDocument1.PrintPage, _
AddressOf ModulePrinting.PrintGraphic
PrintDocument1.Print()
Catch ex As Exception
MessageBox.Show _
("Sorry-there is problem printing", ex.ToString)
End Try
End Sub
Phát biểu AddHandler yêu cầu thủ tục xử lý PrintGraphic trong Module sẽ được triệu gọi khi sự kiện PrintPage của điều khiển PrintDocument xảy ra. Hàm AddressOf dùng để chỉ định địa chỉ của thủ tục PrintGraphic trong ModulePrint.vb. Đây là kỹ thuật chuyển giao (delegate) trong các ngôn ngữ của nền .NET. Bạn chuyển địa chỉ của hàm cho đối tượng và đối tượng sẽ triệu gọi hàm.
Chạy chương trình:
Ấn F5 để chạy chương trình. Bạn có thể nhập mới một đường dẫn đến đối tượng in hay click vào nút nhấn để in luôn. Kết quả:

Bạn chọn nơi lưu file *.mdi. và ấn nút save để lưu. Bạn cũng có thể dừng tác vụ in bằng cách ấn nút Cacel.
1.2. In văn bản từ đối tượng TextBox
Bài tập sau chúng ta sẽ in đoạn văn bản trong một ô textbox. Ta sẽ không dùng trực tiếp đối tượng PrintDocument nữa mà tạo nó bằng mã chương trình. Ta cũng dùng phương thức Graphics.DrawString thay cho phương thức DrawImage trước đây.
Bài tập MyTextPrinting:
Tìm hiểu chương trình:
Chương trình gồm một ô textbox và một nút nhấn. Ô textbox cho phép nhập đoạn văn bản và nút nhấn sẽ tiến hành in đoạn văn bản có trong textbox đó ra.
Thiết kế giao diện:
Bạn tạo mới một Solution và thêm vào một dự án cùng tên là MyTextPrinting, thiết kế giao diện như hình:

Trong đó các thuộc tính của các điều khiển như sau: đối tượng TextBox1: ScrollBars – Both, MultiLine – True. Các đối tượng và thuộc tính của nó như hình.
Viết mã:
Trước hết muốn sử dụng in ấn ta cần đặt khai báo sau ở đầu chương trình:
Imports System.Drawing.Printing
Khai báo một hàm phục vụ in đoạn văn bản trong ô textbox. Bạn tạo ngay trong cửa sổ code editor của form1.vb dưới dòng khai báo form1 như sau:
Private Sub PrinText(ByVal sender As Object, _
ByVal ev As PrintPageEventArgs)
'sử dụng DrawString để vẽ chuỗi cần in
ev.Graphics.DrawString(TextBox1.Text, _
New Font("Arial", 11, FontStyle.Regular), _
Brushes.Black, 120, 120)
'Cho biết không còn trang tiếp theo
ev.HasMorePages = False
End Sub
Tạo thủ tục Button1_Click như sau:
Try
'Khai báo biến PrintDoc có kiểu PrintDocument
Dim PrintDoc As New PrintDocument()
AddHandler PrintDoc.PrintPage, AddressOf Me.PrinText
'Bắt đầu in
PrintDoc.Print()
Catch ex As Exception
MessageBox.Show("Sorry-There is a problem printing", _
ex.ToString())
End Try
Trong thủ tục này ta khai báo một biến có kiểu PrintDocument thay vì sử dụng trực tiếp đối tượng PrintDocument từ ToolBox. Tiếp theo ta cũng sử dụng kỹ thuật chuyển giao để chỉ định hàm thực thi cho biến PrintDoc, hàm này là hàm PrinText ta đã khai báo trước đó. Cuối cùng là gọi phương thức PrintDoc.Print() để in trang in.
Chạy chương trình:
Bạn ấn F5 và nhập vào một đoạn văn bản bất kỳ:

Cũng giống như bài tập trước, bạn có thể ấn vào nút In văn bản và chờ một cửa sổ in xuất hiện để lưu vào một file định dạng .MDI như hình. File .MDI bạn có thể xem trong cùng thư mục chứa dự án nếu muốn.

2. In file văn bản nhiều trang
Ta đã sử dụng đối tượng PrintDocument để in đồ họa cũng như in văn bản đơn giản nhưng cũng còn rất nhiều vấn đề cần giải quyết. Đó là, PrintDocument không có ký tự ngắt dòng (10 và 13), ta cần tự viết mã xử lý ngắt dòng. Để in một văn bản có nhiều trang ta cũng cần viết mã ngắt trang. PrintDocument chỉ đơn giản là gửi dữ liệu đến máy in.
Có hai cách giải quyết vấn đề này. Thứ nhất, sử dụng đối tượng ev có kiểu PrintPageEventArgs để xác định trạng thái in sau mỗi trang được đưa ra máy in (kích thước trang, số ký tự có thể in trên một trang,…). Thứ hai, sử dụng phương thức Graphics.MeasureString. Phương thức này dùng để đo xem có chuối in ra sẽ chiếm kích thước dài và rộng bao nhiêu trên trang giấy. Chúng ta sẽ sử dụng kỹ thuật này để in tài liệu nhiều trang.
Bài tập MyFilePrinting sau đây sẽ minh họa việc in đó. Chương trình có thể mở một file với chiều dài bất kỳ và in nội dung của file đó ra nhiều trang. Ta cũng học cách sử dụng các hộp thoại cấu hình máy in như PrintDialog cùng cách sử dụng đối tượng RichTextBox, OpenFileDialog. Trong đó RichTextBox là ô TextBox mở rộng có thể in và hiển thị được rất nhiều loại tài liệu định dạng font chữ, hình ảnh, kiểu tài liệu của MS Word.
Bài tập MyFilePrinting:
Tìm hiểu chương trình:
Chương trình gồm một RichTextBox để hiển thị nội dung văn bản cần in. Hai nút nhấn, một nút Open cho phép mở file, một nút Print cho phép in văn bản.
Thiết kế giao diện:
Bạn tạo thêm các điều khiển phục vụ mở file, in file như OpenFileDialog1, PrintDocument và PrintDialog. Giao diện của chương trình như hình:

Trong đó thuộc tính của các đối tượng như sau:
- Button1: Text – “Open”, Name – btnOpen
- Button2: Text – “Print”, Name – btnPrint, Enable – False
- RichTextBox1: Name – rxtDocument
Viết mã:
Khai báo hai thư viện sau trước khai báo lớp Form1:
Imports System.IO 'Dùng để xử lý File
Imports System.Drawing.Printing
System.IO cho phép sử dụng lớp FileStream mở và đọc file, System.Drawing.Printing cho phép sử dụng các đối tượng in ấn.
Tiếp theo khai báo các biến dành cho việc in ấn, khai báo đặt ngay sau khai báo lớp form1:
Private PrintPageSetting As New PageSettings()
Private StringToPrint As String
Private PrintFont As New Font("Arial", 10)
Các biến này dùng khi in trang, biến PrintPageSetting để thiết đặt trang in, biến StringToPrint để đọc dòng in, biến PrintFont để thiết đặt font chữ.
Tạo thủ tục btnOpen_Click để mở file ra đọc:
Dim FilePath As String
'Hiển thị hộp thoại mở file
OpenFileDialog1.Filter = "Text Files (*.txt) | *.txt"
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName <> "" Then
FilePath = OpenFileDialog1.FileName
Try
'Đọc nội dụng file vào rxtDocument
Dim myFileStream As New FileStream _
(FilePath, FileMode.Open)

rxtDocument.LoadFile(myFileStream, _
RichTextBoxStreamType.PlainText)

myFileStream.Close()
'Chuỗi để in
StringToPrint = rxtDocument.Text
'Enable nút nhấn Print
btnPrint.Enabled = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
Khi ấn vào nút Open, đoạn mã trên sẽ hiển thị một hộp thoại cho phép chọn file. Khi chọn file xong, đường dẫn và tên file được lưu vào FileName của OpenFileDialog1. Ta gán thuộc tính filename của OpenFileDialog cho biến FilePath. Tiếp theo định nghĩa biến đối tượng FileStream để mở và đọc nội dung file. Toàn bộ nội dung file sau đó được tải vào RichTextBox rxtDocument nhờ phương thức LoadFile. Toàn bộ nội dung của rxtDocument sau đó lại được gán cho biến chuỗi StringToPrint. Nút nhấn Print lúc này được hiển thị cho phép click vào nó.
Bây giờ chúng ta cài đặt đoạn mã cho phép in ấn. Tạo thủ tục btnPrint_Click bằng cách double – click vào nút Print trên form1 và nhập vào đoạn mã sau:

Try
'Chỉ định các thiết lập in mặc định
PrintDocument1.DefaultPageSettings = PrintPageSetting
'Lấy dữ liệu để in
StringToPrint = rxtDocument.Text
PrintDialog1.Document = PrintDocument1
Dim result As DialogResult = PrintDialog1.ShowDialog()
'In tài liệu nếu ấn OK
If result = Windows.Forms.DialogResult.OK Then
PrintDocument1.Print()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
Trong đoạn mã trên, ta gán các thiết lập in mặc định của đối tượng PrintDocument1 là biến đối tượng PrintPageSetting, gán nội dung in trong ô rxtDocument vào biến StringToPrint. Tiếp theo, thuộc tính Document của đối tượng PrintDialog1 được gán bằng với đối tượng tài liệu muốn in hay PrintDocument1. Khi hộp thoại cấu hình máy in hiển thị, mọi thiết lập của người dùng trong hộp thoại sẽ được áp đặt cho tài liệu này. Tiếp theo ta phải cho hiển thị hộp thoại chọn cấu hình máy in để người dùng cấu hình bằng phương thức ShowDialog của PrintDialog1. Khi người dùng ấn OK trong hộp thoại cấu hình máy in thì PrintDocument1 sẽ gọi phương thức Print() để in.
Bây giờ ta tạo thủ tục PrintDocument1_PrintPage để thiết đặt các thông số in như ngắt dòng, ngắt trang,…bằng cách double click vào đối tượng PrintDocument1 trong cửa sổ thiết kế form hay chọn trong danh sách class name và method name ở cửa sổ code editor. Lúc trước ta dùng phương thức AddHandler để chuyển giao việc gọi hàm thì giờ đây ta sử dụng trực tiếp sự kiện có sẵn của PrintDocument1. Thủ tục này có nội dung như sau:
Dim sokytu, sodong As Integer
Dim chuoiin As String
Dim chuoidinhdang As New StringFormat()

'Định nghĩa vùng có thể in ra dựa trên thiết lập trang
Dim vungin As New RectangleF(e.MarginBounds.Left, _
e.MarginBounds.Top, e.MarginBounds.Width, _
e.MarginBounds.Height)

Dim kichthuoc As New SizeF(e.MarginBounds.Width, _
e.MarginBounds.Height - PrintFont.GetHeight(e.Graphics))

'Nếu in một chuỗi dài, yêu cầu ngắt xuống dòng
chuoidinhdang.Trimming = StringTrimming.Word

'Tính xem độ dài chuỗi bao nhiêu thì có thể vừa 1 dòng in
e.Graphics.MeasureString(StringToPrint, PrintFont, _
kichthuoc, chuoidinhdang, sokytu, sodong)

chuoiin = StringToPrint.Substring(0, sokytu)

'In chuỗi trên trang hiện hành
e.Graphics.DrawString(chuoiin, PrintFont, _
Brushes.Black, vungin, chuoidinhdang)

'Nếu vẫn còn chuỗi để in
If sokytu < StringToPrint.Length Then
'Loại bỏ chuỗi đã in xong
StringToPrint = StringToPrint.Substring(sokytu)
e.HasMorePages = True
Else
e.HasMorePages = False
'Tất cả chuỗi đã in xong, khôi phục lại dữ liệu
StringToPrint = rxtDocument.Text
End If
Thủ tục này thực sự tính toán khổ giấy và đẩy dl ra máy in. Trước hết, ta định nghĩa vùng in trong một khung hình chữ nhật:
Dim vungin As New RectangleF(e.MarginBounds.Left, _
e.MarginBounds.Top, e.MarginBounds.Width, _
e.MarginBounds.Height)
Vùng in này được thiết lập nhờ các thông số do biến e truyền vào(biến e này tương đương với biến ev trong thủ tục PrinText và PrintGraphics trước đây). Thông số mà biến e có được là do hộp thoại PrintDialog cung cấp. Tất cả văn bản trong vùng này đều in ra bình thường, phần dài hơn sẽ được đẩy ra in dòng khác. Dữ liệu sau đó được đẩy ra máy in bằng phương thức DrawString.
Chạy chương trình:
Ấn F5 để chạy chương trình. Bạn mở một file text nào đó.

Chương trình sẽ hiển thị nội dung file vào trong rxtDocument:

Nút Print hiện lên, bạn click vào nó để chương trinh hiện hộp thoại thiết lập trang in:

Tôi chưa kết nối máy in nên danh sách máy in không hiện lên ở đây. Bạn có thể thiết lập trang in để truyền thông số vào thủ tục ta đã xây dựng:

Bạn ấn OK, Print để chương trình in ấn. Ở đây tôi lưu vào file Example For Print.mdi bạn có thể xem:

Như vậy là ta đã hoàn thành việc thiết lập trang in cho việc in văn bản nhiều trang. Tiếp sau đây chúng ta sẽ dùng hộp thoại PrintPreviewDialog và PageSetupDialog vào việc thiết đặt trang in.

3. Sử dụng hộp thoại PrintPreviewDialog và PageSetupDialog
Chương trình in ấn của chúng ta đã hoàn chỉnh, giờ chúng ta sẽ cải tiến chương trình MyFilePrinting cho phép định dạng trang in, chọn khổ giấy và xem trước trang in bằng hộp thoại PageSetupDialog và hộp thoại PrintPreviewDialog.
Bạn mở lại Solution MyFilePrinting ta đã làm và đặt thêm hai điều khiển PrintPreViewDialog và PageSetupDialog cùng hai nút nhấn vào form, kết quả như hình:

Trong đó các điều khiển mới có thuộc tính như sau:
- Button1: Name – btnPageSetup, Text – “Page Setup”, Enable – False.
- Button2: Name – btnPreview, Text – “Print Preview”, Enable – False.
Khi người dùng click vào nút Page Setup thì một hộp thoại cho phép người dùng chọn khổ giấy và thiết lập các thông số cho trang in. Khi click vào nút Print Preview thì hộp thoại cho phép người dùng xem trước trang in hiện ra.
Bây giờ ta sẽ tạo thủ tục btnPageSetup_Click bằng cách double click vào nút Page Setup và nhập vào đoạn mã như sau:
Try
'Nạp các thiết lập và hiển thị hộp thoại PageSetup
PageSetupDialog1.PageSettings = PrintPageSetting
PageSetupDialog1.ShowDialog()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Đoạn mã này sẽ tạo ra một hộp thoại Page Setup. Biến PrintPageSetting đã được khai báo ở đầu chương trình. Biến PrintPageSetting sẽ nắm giữ các thông số mà hộp thoại PageSetupDialog trả về.
Tiếp theo ta tạo thủ tục btnPreview_Click và nhập đoạn mã như sau:
Try
'Chỉ định các thiết lập trang in hiện hành
PrintDocument1.DefaultPageSettings = PrintPageSetting

'Chỉ định tài liệu hiển thị cho hộp thoại PrintPreview
StringToPrint = rxtDocument.Text
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Thủ tục này sẽ gán biến PrintPageSetting cho thuộc tính DefaultPageSettings của đối tượng PrintDocument1, copy văn bản trong ô rxtDocument vào biến StringToPrint và mở hộp thoại PrintPreviewDialog1. Thuộc tính Document của hộp thoại PrintPreviewDialog1 được gán bằng PrintDocument1 để chương trình biết bạn đang cần xem tài liệu nào.
Sau cùng ta cần enable hai nút nhấn mới thêm là Page Setup và Print Preview bằng hai dòng mã sau trong thủ tục btnOpen_Click:
btnPageSetup.Enabled = True
btnPreview.Enabled = True
Bạn cũng có thể cho phép người dùng nhập nội dung vào ô RichTextBox bằng cách bổ sung thêm thủ tục rxtDocument_TextChanged với nội dung như sau:
Private Sub rxtDocument_TextChanged(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles rxtDocument.TextChanged
btnPrint.Enabled = True
btnPageSetup.Enabled = True
btnPreview.Enabled = True
End Sub
Bây giờ chương trình đã hoàn chỉnh, bạn hãy lưu lại tất cả những thay đổi của chương trình bằng cách nhấn vào nút Save All trên thanh Standard Bar.
Chúng ta sẽ tiến hành chạy và kiểm tra chương trình.

Chạy chương trình:
Bạn chạy chương trình bằng cách nhấn nút F5, bạn hãy thử mở lại file text nào đó hay có thể tự nhập nội dung văn bản vào trong ô RichTextBox.

Bạn nhấn vào nút Page Stup để hiển thị hộp thoại chọn khổ giấy và kích thước trang in:

Bạn có thể thay đổi kích thước các lề in. Tôi thay như sau: Left – 2.5, ba thông số còn lại là 1.5. Nhấn OK để lưu lại thông số này.
Nhấn nút Print Preview để xem trước trang in:

Bạn có thể xem trong nhiều chế độ. Nhấn Close để đóng cửa sổ này lại. Vậy là chúng ta đã hoàn thành việc in ấn cho một tài liệu văn bản đơn giản.
4. Tổng kết chương 18
Bạn hãy làm bảng tổng kết những gì đã học trong chương 18. Bạn có thể áp dụng những ví dụ trong chương này cho các bài tập cần in ấn sau này của bạn.

Xem lý lịch thành viên http://sansomit.forumr.net

2 Re: Vb-Làm việc với máy in on Mon Jul 12, 2010 11:10 pm

hjx! làm ơn cho em xem cả mấy cái hình nữa nhé. toàn chữ thế này nhìn hoa hết mắt lên roài Shocked

Xem lý lịch thành viên

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang  Thông điệp [Trang 1 trong tổng số 1 trang]

Permissions in this forum:
Bạn không có quyền trả lời bài viết