• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

In ấn trong VB6

Các bài viết hướng dẫn, giúp các bạn hiểu và tiếp cận với Visual Basic nhanh hơn
User avatar
truongphu
VIP
VIP
Posts: 4764
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 519 times

Re: In ấn trong VB6

Postby truongphu » Wed 28/04/2010 2:00 pm

1- bạn VB.NET:

các bài viết của bạn, code phải được đưa vào thẻ code đúng quy định
bài viết không đúng cách, có thể bị xóa!

2- bạn hutra:
hutra wrote:Có cách nào khi in hết dòng cuối cùng thì máy in tự động ngưng ko load giấy nữa


bạn đọc không kỹ, dùng lệnh sau:

Code: Select all

Printer.EndDoc


------
Đây là bài viết hướng dẫn để tham khảo
Các bạn có thắc mắc, gởi Box Thắc mắc, không gởi tại đây.
Chủ đề nầy tạm khóa


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

chuongdong
Posts: 1
Joined: Sun 23/01/2011 4:08 pm

Re: In ấn trong VB6

Postby chuongdong » Sun 23/01/2011 4:17 pm

Đ/v máy in nhiệt các bạn sẽ gặp tình trạng như vậy. Máy sẽ in hết một trang giấy mà nội dung cần in thì rất ít. Vd như in hóa đơn của quán cà phê.Trường hợp này các bạn ra ngoài Windows thiết lập lại cấu hình máy in.
Start/settings/Printers and Faxes/Propetier/device settings
Thiết lập lại độ dài trang in.
Chúc các bạn thành công

phapnguyen
Posts: 5
Joined: Fri 17/04/2009 12:40 am

Re: In ấn trong VB6

Postby phapnguyen » Wed 09/11/2011 10:58 am

Chào mọi người mình đang cần giúp đở!
Mình muốn thực hiện lệnh in một đoạn Text trong đó có nhiều loại font chủ thì mình phải làm như thế nào ah!
Ví dụ em muốn in đoạn text: "Họ và Tên: Nguyễn văn A" thì làm sao ah!
Thank mọi người trước nhé!

phapnguyen
Posts: 5
Joined: Fri 17/04/2009 12:40 am

Re: In ấn trong VB6

Postby phapnguyen » Wed 16/11/2011 4:48 pm

Sao mà không có bác nào giúp em hết vậy! Hic

thank0bk54
Posts: 4
Joined: Mon 26/03/2012 1:01 am
Has thanked: 1 time
Contact:

Re: In ấn trong VB6

Postby thank0bk54 » Mon 26/03/2012 1:04 am

Các anh ơi cho em hỏi, trong vb 6.0 để hiển thị thông tin ra màn hình trong 1 dòng thì dùng lệnh gì. Em dùng lệnh print để hiển thị nhưng mỗi lần in nó lại nhảy sang một dòng khác. Giúp em với các Bro!!

dophuhao
Posts: 1
Joined: Sat 14/07/2012 9:14 pm

Re: In ấn trong VB6

Postby dophuhao » Sat 14/07/2012 9:24 pm

Các anh em cho hỏi khi em muốn in 1 form nhưng chỉ in 1 phần của form thôi thì dùng lệnh me.printform được không hay có thêm thông số gì không, hay có lệnh nào khác hay không, vì e chỉ cần in phần kết quả tính toán của form đã lập trình thôi. Mong anh em chỉ giúp cho em, e mới nghiên cứu về vb nên chưa bít vấn đề này. Cảm ơn anh em đã đọc bài viết của mình.

User avatar
phongvanvu
Guru
Guru
Posts: 151
Joined: Wed 24/01/2007 2:20 pm
Has thanked: 1 time
Been thanked: 8 times
Contact:

Re: In ấn trong VB6

Postby phongvanvu » Sat 14/07/2012 10:10 pm

Lâu rồi không đụng đến VB6. Hi vọng bài này có thể giúp em được phần nào:
http://support.microsoft.com/kb/161299
Live to fight!

User avatar
qweewq
Thành viên chính thức
Thành viên chính thức
Posts: 17
Joined: Thu 19/11/2009 4:11 pm
Contact:

Re: In ấn trong VB6

Postby qweewq » Wed 10/04/2013 10:20 am

Bác nào có tài liệu để thiết lập hộp thoại in ấn không cho mình xin với

TVTRUNG
Thành viên chính thức
Thành viên chính thức
Posts: 21
Joined: Fri 08/08/2008 7:09 am

Re: In ấn trong VB6

Postby TVTRUNG » Tue 01/07/2014 10:38 am

Tìm mãi không thấy SET khổ giấy in A3 trước khi in báo cáo (Report), các bạn giúp đỡ tui viết câu lệnh đầy đủ để SET khổ giấy của máy in thành A3 trước khi in nha .
Đã viết :
Printer.PaperSize = 8

Nhưng khổ giấy A4 vẫn trơ trơ... không thay đổi.

Thanks các Pro trước.

TVTRUNG
Thành viên chính thức
Thành viên chính thức
Posts: 21
Joined: Fri 08/08/2008 7:09 am

Re: In ấn trong VB6

Postby TVTRUNG » Mon 14/07/2014 11:13 pm

Chà chà, lâu rồi mà không có Pro nào giúp cả.....

microtri
Thành viên chính thức
Thành viên chính thức
Posts: 49
Joined: Sat 24/04/2010 3:37 am
Been thanked: 10 times

Re: In ấn trong VB6

Postby microtri » Sat 10/12/2016 10:11 am

Printer.Print: Unicode
(Không cần dùng file trung gian)

Code: Select all

Private Declare Function TextOutW Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

    Dim x As Long
    Dim str As String
   
    str = "Text unicode (Dùng text của Form2)"
    Printer.ScaleMode = 1
   
    Printer.FontName = "Tahoma"
   
   
   
    Printer.Print " " 'for initializing - to get the hdc
    Printer.FontSize = 10
    x = TextOutW(Printer.hdc, 10, 10, StrConv(str, vbUnicode), Len(str))
    Printer.FontSize = 12
    x = TextOutW(Printer.hdc, 200, 200, StrConv(str, vbUnicode), Len(str))
    Printer.FontSize = 14
    x = TextOutW(Printer.hdc, 300, 300, StrConv(str, vbUnicode), Len(str))
    Printer.EndDoc
   


Return to “[VB] Bài viết hướng dẫn”

Who is online

Users browsing this forum: No registered users and 1 guest