Nhờ các bạn đoạn code vba chạy lệnh print preview theo vùng (1 người xem)

[nhk007dn]

Nhờ các bạn giúp mình 2 đoạn code vba chạy lệnh print preview theo vùng:

1. code chạy lệnh print preview vùng Bảng có tên macro “InBang”
2. code chạy lệnh print preview vùng Phụ lục có tên macro “InPhuLuc”

Tương ứng với 2 sheet khác nhau thì vùng in cũng khác nhau. Sự khác nhau này sẽ đc đoạn code nhận biết qua ô S1
Nếu ở ô S1 có ký tự “T” thì đoạn code nhận biết đang ở sheet “DU-LIEU-T” và thực hiện lệnh print preview vùng Bảng (Từ A7:I19) và print preview vùng Phụ lục (Từ K7:O21)
Tương tự Nếu ở ô S1 có ký tự “H” thì đoạn code nhận biết đang ở sheet “DU-LIEU-H” và thực hiện lệnh print preview vùng Bảng (Từ A7:I24) và print preview vùng Phụ lục (Từ K7:Q20)

( Vì tên sheet thay đổi theo người dung nên phải dựa vào ô S1)

Mong các bạn giúp!

 

[nhk007dn]

bạn nào giup mình vấn đề này với.

 

[nmhung49]

Bạn thử với code này xem sao tại vùng dữ liệu in ko thống nhất nên cũng hơi khó bạn dùng code này tạm

[GPECODE=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$S$1" Then

Application.EnableEvents = False

With Sheets("DU-LIEU-" & [S1].Value)
.Range("A7:I19").PrintPreview
.Range("K7:Q21").PrintPreview
End With
Application.EnableEvents = True
End If


End Sub
[/GPECODE]
Ở S1 có đánh chữ muốn in

 

[nhk007dn]

cảm ơn bạn đã giúp!
nhưng vẫn chưa phải ý mình bạn ah.
tên sheet có thể thay đổi. chữ T hay chữ H ở ô S1 chỉ có tác dụng để đoạn code macro nhận biết đc đang ở sheet nào mà thực hiện vùng in cho đúng thôi.