In theo điều kiện (2 người xem)

[Thien]

Hi! các cao thủ.

Nhờ giải giúp tớ bài toán này.
Tôi có sheet in phiếu nhập xuất kho, tôi muốn có 1 nút in khi nhấp vào sẽ cho chọn lựa in toàn bộ phiếu nhập hay toàn bộ phiếu xuất.
(PX00... hay PN00...).



Mong các đại ca giải giúp.

Xin cảm ơn

Thân chào các cao thủ

 

[PhanTuHuong]

Bạn thử dùng chức năng Record để ghi cho 2 trường hợp, sau đó bổ sung thêm code nữa là ổn (thêm if và msgbox nữa). Bạn thử xem:

Sub InBD()
    Dim Sotrang, i As Integer
    Sotrang = InputBox("Vao so trang in", "Vao so trang in trong 1 tru:", "1")
        For i = 1 To Sotrang
            Range("N1").Value = "Tê sè:" & i & "/" & Sotrang
            ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1
        Next
    Range("b8").Select
End Sub

 

[Thien]

Bạn thử dùng chức năng Record để ghi cho 2 trường hợp, sau đó bổ sung thêm code nữa là ổn (thêm if và msgbox nữa). Bạn thử xem:

Sub InBD()
    Dim Sotrang, i As Integer
    Sotrang = InputBox("Vao so trang in", "Vao so trang in trong 1 tru:", "1")
        For i = 1 To Sotrang
            Range("N1").Value = "Tê sè:" & i & "/" & Sotrang
            ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1
        Next
    Range("b8").Select
End Sub

Nhờ Anh giải giúp mình. Mình có 1 đoạn code như sau:
Sub Inphieunhapxuat()
Dim cell As Range
Sheets("InChungTu").Select
For Each cell In Range("SOCT")
If cell.Value <> "" Then
Range("H1").Value = cell.Value
ActiveWindow.SelectedSheets.PrintOut , to:=1, Copies:=1, collate:=True
End If
Next cell
End Sub

Cho phép in toàn bộ các phiếu nhập xuất trong SOCT.
(SOCT là các PN001, PN002...... & PX001, PX002.....)
Mình có ý định như sau:
+ Cho phép mình chọn in toàn bộ theo phiếu nhập trong SOCT
+ In phiếu nhập từ phiếu đến phiếu.
+ Cho phép mình chọn in toàn bộ theo phiếu xuất trong SOCT
+ In phiếu xuất từ phiếu đến phiếu.

Nhờ Anh & các sư phụ giành tý thời gian giải đáp giúp mình.

Xin đa tạ