LẬP MACRO IN LIÊN TỤC NHIỀU TRANG (1 người xem)

[Nguyễn Diêu Hiền]

Mình có file (như đính kèm), 1 sheet là dữ liệu, 1 sheet là in phiếu. Mình muốn lập macro để in liên tục nhiều trang (từ trang ... đến trang....) theo mình chọn. Mình chỉ lập macro in được 1 trang thôi nên rất mất thời gian ngồi bấm máy. Các cao nhân chỉ giùm mình với! Xin đa tạ!

 

[snow25]

Mình có file (như đính kèm), 1 sheet là dữ liệu, 1 sheet là in phiếu. Mình muốn lập macro để in liên tục nhiều trang (từ trang ... đến trang....) theo mình chọn. Mình chỉ lập macro in được 1 trang thôi nên rất mất thời gian ngồi bấm máy. Các cao nhân chỉ giùm mình với! Xin đa tạ!

Bạn xem đúng không nhé.

 

[Nguyễn Diêu Hiền]

Bạn xem đúng không nhé.

Bạn cho mình xin đoạn lệnh để mình copy vào chứ mở file ra nó cứ báo như hình này

 

[snow25]

Bạn cho mình xin đoạn lệnh để mình copy vào chứ mở file ra nó cứ báo như hình này

Bạn xem nhé.

Sub INR7()
      Dim so1 As Long, so2 As Long, i As Long
      With Sheets("xuat phieu 7")
            so1 = .Range("M4").Value
            so2 = .Range("M5").Value
       For i = so1 To so2
         .Range("L9").Value = i
         .PrintOut From:=1, to:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
       Next i
      End With
End Sub

 

[Nguyễn Diêu Hiền]

Bạn xem nhé.

Sub INR7()
      Dim so1 As Long, so2 As Long, i As Long
      With Sheets("xuat phieu 7")
            so1 = .Range("M4").Value
            so2 = .Range("M5").Value
       For i = so1 To so2
         .Range("L9").Value = i
         .PrintOut From:=1, to:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
       Next i
      End With
End Sub

Bạn cho mình hỏi với! Khi mình vào macro để sửa lại đoạn lệnh thì nó bị như thế này thì nguyên nhân là sao vậy? Mình ko đặt password cho macro

 

[snow25]

Bạn cho mình hỏi với! Khi mình vào macro để sửa lại đoạn lệnh thì nó bị như thế này thì nguyên nhân là sao vậy? Mình ko đặt password cho macro

Có khả năng là trùng tên sub.

 

[PhanTuHuong]

Bạn cho mình xin đoạn lệnh để mình copy vào chứ mở file ra nó cứ báo như hình này

Bạn xem nhé.

Sub INR7()
      Dim so1 As Long, so2 As Long, i As Long
      With Sheets("xuat phieu 7")
            so1 = .Range("M4").Value
            so2 = .Range("M5").Value
       For i = so1 To so2
         .Range("L9").Value = i
         .PrintOut From:=1, to:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
       Next i
      End With
End Sub

Bạn đã Enable macro đâu mà chạy được.