Lập trình VBA: Xin cho hỏi về cách tạm dừng vài giây rồi tiếp tục thực hiện công việc (1 người xem)

[DART2]

.......................
.......................
For to_mau = to_mau To to_gr
Worksheets("PHIEU XUAT").PrintOut From:=trang_in, to:=trang_in, Copies:=num_copies
Worksheets("TN MAU").Range("b3").Value = to_mau
For i = 1 To 100000
Next
Next
.......................


Do thực hiện việc in ấn mà tốc độ xử lý của máy lại quá nhanh so với máy in, nên em muốn chương trình tạm dừng khoảng vài giây rồi mới tiếp tục thực hiện vòng lặp For to_mau = to_mau To to_gr để cho máy in có thời gian để xử lý.
Em đã thử tạo 1 vòng lặp For i = 1 To 100000 để cho nó delay nhưng xem ra không ăn thua, mong các bác cho em ý kiến!!
Thanks các bác đã quan tâm!!

 

[ndu96081631]

.......................
.......................
For to_mau = to_mau To to_gr
Worksheets("PHIEU XUAT").PrintOut From:=trang_in, to:=trang_in, Copies:=num_copies
Worksheets("TN MAU").Range("b3").Value = to_mau
For i = 1 To 100000
Next
Next
.......................


Do thực hiện việc in ấn mà tốc độ xử lý của máy lại quá nhanh so với máy in, nên em muốn chương trình tạm dừng khoảng vài giây rồi mới tiếp tục thực hiện vòng lặp For to_mau = to_mau To to_gr để cho máy in có thời gian để xử lý.
Em đã thử tạo 1 vòng lặp For i = 1 To 100000 để cho nó delay nhưng xem ra không ăn thua, mong các bác cho em ý kiến!!
Thanks các bác đã quan tâm!!

Thì dùng hàm Sleep đi

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
For to_mau = to_mau To to_gr
  Worksheets("PHIEU XUAT").PrintOut From:=trang_in, to:=trang_in, Copies:=num_copies
  Worksheets("TN MAU").Range("b3").Value = to_mau
  Sleep 1000 '<--- 1000 = 1 giây
  DoEvents
Next

Lưu ý: Tham số của hàm Sleep có đơn vị ms (1/1000s)

 

[hoanganhdl]

Dùng cái này cũng được

Application.Wait (Now   TimeValue("00:00:01"))

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

 

[hatba]

Xin chao cac a/c , em lam lenh chay nhu sau : thuc thi mot lenh nao do o sheep1, sau khoang 1 phut thi chuyen qua mac dinh o sheep 2. cam on nhiu !

 

[ChanhTQ@]

Bài vô giá trị

,
[Thongbao]Xin chao cac a/c , em lam lenh chay nhu sau : thuc thi mot lenh nao do o sheep1, sau khoang 1 phut thi chuyen qua mac dinh o sheep 2. cam on nhiu ![/Thongbao]

 

[mhieuit]

Dear GPE,
Em có đoạn code in nhiều sheet, em chưa biết thêm code

Sleep

vào đâu cho đúng, các anh chị hướng dẫn giúp em nhé. Cám ơn rất nhiều ạ!

Private Sub PrintSheets()Dim iRet As Integer
Dim strPrompt As String
Dim strTitle As String
Dim Numcop As Long
Application.ScreenUpdating = False
    Numcop = Application.InputBox("Enter number of copies to print:", _
    "How Many Copies?", 1, Type:=1)
Dim i As Integer
    For i = 1 To Sheets.Count
        Sheets(i).PrintOut Copies:=Numcop, Preview:=False, Collate:=True, IgnorePrintAreas:=False
    Next i
  'Promt
    strPrompt = "Done Print, OK?"
 
    ' Dialog's Title
    strTitle = "Information"
 
    'Display MessageBox
    iRet = MsgBox(strPrompt, vbOKOnly, strTitle)
    Application.ScreenUpdating = True
End Sub