In bảng tính

[Cá ngừ F1]

E có sử dụng marco để in 1 trang sheet abc từ 1 sheet tên xyz, code nhu sau:

sub in_baocao
sheets("abc").select
activewindow.selectsheets.printout copies:=1, collate:=true, ignoreprintareas:=false
sheets("xyz").select
end sub

e muốn ẩn sheet abc đi thì lệnh in này báo lỗi
nếu ẩn sheet abc đi thì sửa code ntn ạh?
e cảm ơn nhiều...

 

[ndu96081631]

E có sử dụng marco để in 1 trang sheet abc từ 1 sheet tên xyz, code nhu sau:

e muốn ẩn sheet abc đi thì lệnh in này báo lỗi
nếu ẩn sheet abc đi thì sửa code ntn ạh?
e cảm ơn nhiều...

Thì cho sheet hiện lên xong hẳn in. In xong lại ẩn tiếp
Record macro để biết cái vụ ẩn hiện này viết thế nào
----------
Nói thêm: In thì cứ in, khỏi Select gì ráo. Ví dụ

sub in_baocao
  With sheets("abc")
    .Visible = -1  '<--- Hiện sheet
    .printout      '<--- In
    .Visible = 0   '<--- Ẩn sheet
  End With
end sub

 

[Cá ngừ F1]

Thì cho sheet hiện lên xong hẳn in. In xong lại ẩn tiếp
Record macro để biết cái vụ ẩn hiện này viết thế nào
----------
Nói thêm: In thì cứ in, khỏi Select gì ráo. Ví dụ

sub in_baocao
  With sheets("abc")
    .Visible = -1  '<--- Hiện sheet
    .printout      '<--- In
    .Visible = 0   '<--- Ẩn sheet
  End With
end sub

Quả thật...chỉnh rồi ko thể ko chuẩn ạh...

 

[Cá ngừ F1]

E hỏi thêm chút... Nếu như sheet abc đã đặt print area rồi thì đặt lệnh in sheet như trên thì nó chỉ in cái area mình đã đặt đó đúng ko ạh?

 

[nghiaphuc]

E hỏi thêm chút... Nếu như sheet abc đã đặt print area rồi thì đặt lệnh in sheet như trên thì nó chỉ in cái area mình đã đặt đó đúng ko ạh?

Chính xác là như thế.
Ngoài ra, nếu chỉ muốn in một vùng trên sheet (chẳng hạn vùng A1:F10) thì bạn thay câu lệnh .Printout thành câu lệnh .[A1:F10].Printout