Hẹn giờ in với excel (1 người xem)

[trungcdcv]

Nhờ các bác giúp cho em với, vấn đề là ntn:
Em có file dữ liệu báo cáo, đánh giá và phân công công việc cho một nhóm làm việc.
Bây giờ em muốn cứ đến 6:30 SA ( chẳng hạn) máy tự in một sheet để các cá nhân tham gia đến nhận phân công cho ngày mới và các công việc cần khắc phục.
Máy tính, máy in luôn tình trạng mở, chỉ không ad.
Nhờ các bác chỉ cho hướng giải pháp hoặc chi tiết thì càng tốt.
Cảm ơn nhiều ạ!!!
Email: trungcdcv@gmail.com

 

[duongcga]

tạo lấy 1 timer rồi tự động in thôi.

 

[giaiphap]

tạo lấy 1 timer rồi tự động in thôi.

Có thể làm thử một cái timer cho mình học hỏi với, chưa làm thực tế bao giờ. Nhanh nhé bạn, đang hóng đó.

 

[hhoang_56]

Tìm thấy trên mạng. Tham khảo nhé:

[B]Excel Macro to Automatically Run a Macro at a Certain Time[/B]
[COLOR=#000000][FONT=Arial]
Private Sub Workbook_Open()
      'Runs a macro at 4:30 PM
      Application.OnTime TimeValue("16:30:00"), "Name_of_Macro"
End Sub
[/FONT][/COLOR]

Thay thế Name_of_Macro bằng đoạn code dùng để in sheet của bạn

 

[giaiphap]

Tìm thấy trên mạng. Tham khảo nhé:

[B]Excel Macro to Automatically Run a Macro at a Certain Time[/B]
[COLOR=#000000][FONT=Arial]
Private Sub Workbook_Open()
      'Runs a macro at 4:30 PM
      Application.OnTime TimeValue("[/FONT][/COLOR][COLOR=#ff0000][FONT=Arial][B]16:30:00[/B][/FONT][/COLOR][COLOR=#000000][FONT=Arial]"), "Name_of_Macro"
End Sub
[/FONT][/COLOR]

Thay thế Name_of_Macro bằng đoạn code dùng để in sheet của bạn

Hình như có gì đó chưa ổn chổ màu đỏ. Vã lại cái này chỉ chạy khi mở chính cái file chứa macro thì phải, trong trường hợp file chứa macro này đã đóng thì thế nào ta

 

[hhoang_56]

Chỗ màu đỏ vẫn bình thường mà.
Đã thử với đoạn code sau

Private Sub Workbook_Open()
    Application.OnTime TimeValue("7:05:00"), "Testing1"
End Sub

và

Sub Testing1()
    MsgBox Now
End Sub

kết quả như hình

 

[giaiphap]

Chỗ màu đỏ vẫn bình thường mà.

Ý mình nói là sai với yêu cầu của chủ Topic.

 

[giaiphap]

Trừ phi viết trên tool khác để kích hoạt file excel và in đúng thời gian đó...

Thì mình đang hóng cái này mà, chứ còn cái application.ontime ai lại chả biết. Theo mình hiểu thì chủ topic có nói máy tính và máy in luôn mở chứ đâu có nói là file excel đang mở đâu.

 

[tor]

Bạn thử thực hiện theo các bước sau :

[1/3]
Tạo file VBScript (.vbs) để in file Excel
Giả sử file Excel của bạn là D:\Cong viec\XLS\In01.xls
[GPECODE=vb]Const xlDoNotSaveChanges = 2
Dim oXL, oWkbk
'
Set oXL = CreateObject("Excel.Application")
'
oXL.Visible = False
'
Set oWkbk = oXL.Workbooks.Open("D:\Cong viec\XLS\In01.xls")
oWkbk.PrintOut
oWkbk.Close xlDoNotSaveChanges
'
oXL.Quit
Set oXL = Nothing[/GPECODE]
[2/3]
Tạo một tác vụ chạy file .vbs ở trên hàng ngày tại thời điểm xác định
Như trong ví dụ của mình là D:\Cong viec\VBS\In01.vbs
Lúc 06:30 sáng
Bạn có thể dùng wizard Task Scheduler hoặc lệnh schtasks.exe
[GPECODE=vb]schtasks.exe /create /sc daily /tn In01 /tr "D:\Cong viec\VBS\In01.vbs" /st 06:30[/GPECODE]
[3/3]
Thay đổi các tham số sao cho phù hợp với yêu cầu của bạn

Chúc vui.

 

[Thong Hoang Tien 250691]

Chỗ màu đỏ vẫn bình thường mà.
Đã thử với đoạn code sau

Private Sub Workbook_Open()
    Application.OnTime TimeValue("7:05:00"), "Testing1"
End Sub

và

Sub Testing1()
    MsgBox Now
End Sub

kết quả như hình
View attachment 159123

vậy xin cho hỏi, nếu muốn excel sau 7:05:00 sẽ tự động run lại macro testing1 sau mỗi 5p( 7:10:00, 7:15:00.....) cho đến khi tắt file excel thì phải viết như thế nào? xin trả lời giúp.