Kết quả 1 đến 4 của 4

Chủ đề: làm thế nào để in được hàng loạt phiếu lương của nhân viên trong 1 lệnh in

  1. #1
    bangpho Guest

    làm thế nào để in được hàng loạt phiếu lương của nhân viên trong 1 lệnh in

    Chào cả nhà
    Khi mình gõ số 1 (cột K, màu vàng) ở sheet "phiếu lương" thì hiện tên và mã nhân viên của người đó và bấm lệnh in, tương tự gõ số 2 thì lại là mã và tên nhân viên của người khác và lại bấm lệnh in.....cứ như vậy thì mình gõ đến số 46 trong file "bảng lương" thì in hết 46 người và phải dùng đến 46 lệnh in
    Vậy có cách nào mà chỉ dùng 1 lệnh in, mình in được hàng loạt các phiếu lương (46 phiếu) cùng luôn được không?
    (mình gửi File đính kèm)
    Cảm ơn cả nhà trước.

  2. #2
    LeThao9794 Guest
    Trích dẫn Gửi bởi khangtrangsangsua
    Chào cả nhà
    Khi mình gõ số 1 (cột K, màu vàng) ở sheet "phiếu lương" thì hiện tên và mã nhân viên của người đó và bấm lệnh in, tương tự gõ số 2 thì lại là mã và tên nhân viên của người khác và lại bấm lệnh in.....cứ như vậy thì mình gõ đến số 46 trong file "bảng lương" thì in hết 46 người và phải dùng đến 46 lệnh in
    Vậy có cách nào mà chỉ dùng 1 lệnh in, mình in được hàng loạt các phiếu lương (46 phiếu) cùng luôn được không?
    (mình gửi File đính kèm)
    Cảm ơn cả nhà trước.
    Dùng code này thử xem.tôi thử máy tôi thì ok không biết máy bạn thế nào. nhớ căn chỉnh trang in và default máy in trước khi in nhé.

    Mã nguồn PHP:
    Sub Print_out()Dim i As IntegerFor i = 1 To 46ActiveSheet.Range("K2").Value = iActiveWindow.SelectedSheets.PrintOut 1, 1, 1, False, FalseNext i End Sub  

  3. #3
    thuhongnt Guest
    Dùng code này thử xem.tôi thử máy tôi thì ok không biết máy bạn thế nào. nhớ căn chỉnh trang in và default máy in trước khi in nhé.
    PHP Code:
    <font color="#0000BB">Sub Print_out
    ()
    Dim i As Integer
    For i = 1 To 46
    ActiveSheet
    .Range("K2").Value = i
    ActiveWindow
    .SelectedSheets.PrintOut 1, 1, 1, False, False
    Next i

    End Sub
    M
    ình gõ cái Code này vào chỗ nào, bạn hướng dẫn kỹ hơn chút được không?
    </font>

  4. #4
    hoangvs Guest
    Trích dẫn Gửi bởi khangtrangsangsua
    dùng code này thử xem.tôi thử máy tôi thì ok không biết máy bạn thế nào. Nhớ căn chỉnh trang in và default máy in trước khi in nhé.
    php code:
    <font color="#0000bb">sub print_out
    ()
    dim i as integer
    for i = 1 to 46
    activesheet
    .range("k2").value = i
    activewindow
    .selectedsheets.printout 1, 1, 1, false, false
    next i

    end sub
    m
    ình gõ cái code này vào chỗ nào, bạn hướng dẫn kỹ hơn chút được không?
    </font>
    khổ ghê . Cho cần cầu xong rồi còn phải cho luôn cá , rồi còn phải nấu luôn nữa sao trời[IMG]images/smilies/a43.gif[/IMG][IMG]images/smilies/a43.gif[/IMG]

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •