Gíup em với ạ " Làm 2 lệnh VBI trên 1 sheet"

[tampt@stonevietnam]

Gửi các anh:

Em lại có 1 vấn đề nữa hỏi các anh ạ

Sau khi em tổng hợp xong file tổng hợp từ các sheet nhỏ thì em muốn in tem thể hiện nội dung trong sheet bằng VBI
Thực hiện in bằng lệnh VBI Em đã làm đc rồi nhưng trên 1 file khác. Bây giờ em muốn thực hiện in luôn trên sheet tổng hợp hoặc ra 1 sheet riêng miễn là vẫn nằm trên file dữ liệu ấy

Nhưng khi em thực hiện nhập lệnh in rồi thì bị lỗi
Và hình ảnh lỗi như sau: các anh xem xét giúp em và chỉ em các sửa với ạ

Em cám ơn anh chị
File đính kèm em gửi

 

[nlbx]

VBI là chi? Tonghop trong code là gì ạ?

 

[giaiphap]

Gửi các anh:

Em lại có 1 vấn đề nữa hỏi các anh ạ

Sau khi em tổng hợp xong file tổng hợp từ các sheet nhỏ thì em muốn in tem thể hiện nội dung trong sheet bằng VBI
Thực hiện in bằng lệnh VBI Em đã làm đc rồi nhưng trên 1 file khác. Bây giờ em muốn thực hiện in luôn trên sheet tổng hợp hoặc ra 1 sheet riêng miễn là vẫn nằm trên file dữ liệu ấy

Nhưng khi em thực hiện nhập lệnh in rồi thì bị lỗi
Và hình ảnh lỗi như sau: các anh xem xét giúp em và chỉ em các sửa với ạ

Em cám ơn anh chị
File đính kèm em gửi

View attachment 198824

Bạn sửa lại code thế này xem sao.

Sub printF()
Dim i As Long, PrintFrom As Long, PrintTo As Long
With Sheets("Tonghop")
    PrintFrom = .Range("q8").Value
    PrintTo = .Range("q9").Value
    For i = PrintFrom To PrintTo
        .Range("q6").Value = i
        .PrintOut Preview:=False
    Next i
End With
End Sub

À bạn xem lại nhé là VBA chứ không phải là VBI.

 

[tampt@stonevietnam]

Gửi anh
giaiphap
Em cám ơn đoạn VBA của anh ạ. em đã tin được rồi nhưng lại phát sinh thêm 1 vấn đề là " Khi em in tem trong khung TỪ K6:K10 đến N6:N10 thôi ạ
Nhưng khi em in thì lệch lại in tất cả các trang in trong sheet tổng.

Mong các anh chị giúp em với ạ

 

[tampt@stonevietnam]

Gửi anh
giaiphap
Em cám ơn đoạn VBA của anh ạ. em đã tin được rồi nhưng lại phát sinh thêm 1 vấn đề là " Khi em in tem trong khung TỪ K6:K10 đến N6:N10 thôi ạ
Nhưng khi em in thì lệch lại in tất cả các trang in trong sheet tổng.

Mong các anh chị giúp em với ạ

View attachment 199121

ai giúp em với ạ em đang cần lắm

 

[hpkhuong]

Bạn thêm dòng này trước dòng For i = PrintFrom To PrintTo

ActiveSheet.PageSetup.PrintArea = "$K$6:$N$10"

 

[tampt@stonevietnam]

Bạn thêm dòng này trước dòng For i = PrintFrom To PrintTo

ActiveSheet.PageSetup.PrintArea = "$K$6:$N$10"

ÔI EM CÁM ƠN BẠN
hpkhuong

Nhiều ạ em đã làm được rồi ạ