Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] In trực tiếp trên access
#1
Mình làm 1 chương trình in phiếu trên access bằng giấy in nhiệt.
Các bạn cho mình hỏi có cách nào khi nhấn lệnh in thì nó tự in ra luôn phiếu mà ko cần hiện ra hộp thoại chọn số trang in của máy in ko?
Trân trọng cám ơn!
Chữ ký của tieu_ngao Xin chào, mình là tieu_ngao, Tham gia http://thuthuataccess.com/forum từ ngày 20-04 -15.
Reply
Những người đã cảm ơn
#2
Docmd.OpenReport "TenReport",acViewNormal
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
Một vấn đề xin Các Bác, Các Chú giúp là in hai mặt cho nhiều report báo cáo trong access.
Có một số reports được thiết kế dàn trải trên 2 hoặc nhiều hơn 2 trang .
Khi in từng report định dạng in 2 mặt theo máy in thì được.
Nhưng in nhiều reports cũng định dạng 2 mặt cho máy in, khi in ra chỉ in được một mặt giấy.
Viết code cho lệnh in như thế nào.
Thanks
Chữ ký của DooHoaangPhuuc DooHoaangPhuuc,gia nhập Thủ Thuật Access từ 27-06 -17.
ღღღღღTài sản của DooHoaangPhuuc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
(14-10-17, 04:07 PM)DooHoaangPhuuc Đã viết: Một vấn đề xin Các Bác, Các Chú giúp là in hai mặt cho nhiều report báo cáo trong access.
Có một số reports được thiết kế dàn trải trên 2 hoặc nhiều hơn 2 trang .
Khi in từng report định dạng in 2 mặt theo máy in thì được.
Nhưng in nhiều reports cũng định dạng 2 mặt cho máy in, khi in ra chỉ in được một mặt giấy.
Viết code cho lệnh in như thế nào.
Thanks

Việc in 2 mặt giấyl là do cái máy in quyết định chứ có phải do ứng dụng làm ra đâu bạn. Máy in hiện đại có tính năng in 2 mặt thì nó in được thôi.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan
#5
Xem chủ đề này: [Help] Làm sao để in được trang chẳn hoặc trang lẻ trong report access?
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
Cảm ơn Chú Ongke0711.
+ Khi in tuần tự từng report thì điều chỉnh trong máy in 2 mặt thì bình thường 
(Máy in có chức năng in 2 mặt giấy)
+ Tạo nút lệnh gộp in nhiều reports cùng lúc để tránh chọn nhiều từng report (tránh thiếu sót) thì khi in ra cũng chỉ được 1 mặt giấy (mặc dù đã điều chỉnh 2 mặt cho từng report một)
Trước có đọc loáng thoáng đâu đó có lệnh liên quan in như thế này nhưng không nhớ rõ (dòng lệnh trong đó có chứa từ ....duplicate ... thì phải. )
Chữ ký của DooHoaangPhuuc DooHoaangPhuuc,gia nhập Thủ Thuật Access từ 27-06 -17.
ღღღღღTài sản của DooHoaangPhuuc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
Không phải duplicate mà là Duplex.
Hàm in Report có tùy chọn in 1 măt, 2 mặt, in dọc, in ngang:

Mã PHP:
Public Sub PrintReport(strReport As StringstrPrinter As StringfDuplex As BooleanfPortrait As Boolean)
   
   On Error 
GoTo Err_PrintReport
   Dim rptReport 
As Report
   
   DoCmd
.OpenReport strReportacViewPreview, , , acHidden
   
   
'Xác dinh may in cho report can in.'
   Set rptReport Reports(strReport)
   Set rptReport.Printer Application.Printers(strPrinter)
   
   
'Tuy chon in (in 1 mat, 2 mat, in doc, in ngang).'
   If fDuplex Then
       If fPortrait Then
           
'In Doc - 2 mat'
           rptReport.Printer.Duplex acPRDPHorizontal
       Else
           
'In Ngang - 2 mat'
           rptReport.Printer.Duplex acPRDPVertical
       End 
If
   Else
       
'In 1 mat theo chieu giay da chon'
       rptReport.Printer.Duplex acPRDPSimplex
   End 
If
   
   If fPortrait Then
       
'In Doc'
       rptReport.Printer.Orientation acPRORPortrait
   Else
       
'In Ngang'
       rptReport.Printer.Orientation acPRORLandscape
   End 
If
   
   
'In truc tiep report, không Preview.'
   DoCmd.OpenReport strReportacViewNormal
   
   DoCmd
.Close acReportstrReport
   
Exit_PrintReport
:
   Exit Sub
  
Err_PrintReport
:
   MsgBox Err.DescriptionvbExclamation"Error " Err.Number
   Resume Exit_PrintReport
  
End Sub 
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn DooHoaangPhuuc
#8
Cháu cảm ơn Chú Ongke0711 rất nhiều. Đúng là từ Duplex này.
Chữ ký của DooHoaangPhuuc DooHoaangPhuuc,gia nhập Thủ Thuật Access từ 27-06 -17.
ღღღღღTài sản của DooHoaangPhuuc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Xin hỏi cách : Tùy chọn thêm bớt cột báo cáo trong access ledangvan 10 485 15-10-18, 05:29 PM
Bài mới nhất: NguyenDungAnh
  Phần mềm siêu âm viết bằng Access danhxetnghiem 28 8,395 08-01-18, 10:15 PM
Bài mới nhất: tt1212
  [Help] Giúp mình về In Report với mỗi nhóm trên một trang nguyenbalai 17 3,655 13-11-17, 10:31 AM
Bài mới nhất: cpucloi
  [Hỏi] Hình ảnh bị nhòe trên report minhminh25767 2 635 08-10-17, 07:50 AM
Bài mới nhất: thanhtruong
  Hướng Dẫn Size Font Report Access lỗi khi chọn lớn hơn 127. btnnhut 2 565 22-09-17, 08:39 PM
Bài mới nhất: ongke0711

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line