Tạo marco chọn vùng in mặc định (1 người xem)

[bebeen]

Chào các anh chị! Trong 1 sheet excel, em rất hay phải in nhiều chỗ khác nhau. Giờ em muốn mỗi khi in chỉ cần bôi đen vùng đó và dùng phím tắt để khoanh (Set Print Area) vùng đó để in là được. Em đã thu marco xem nhưng không sao sửa được mặc định như vậy. Nhờ mọi người xem dùm!

Sub Vung_In()    
Dim MyR As Range    
MyR.Select    
ActiveSheet.PageSetup.PrintArea = Selection
End Sub

 

[nghiaphuc]

Chào các anh chị! Trong 1 sheet excel, em rất hay phải in nhiều chỗ khác nhau. Giờ em muốn mỗi khi in chỉ cần bôi đen vùng đó và dùng phím tắt để khoanh (Set Print Area) vùng đó để in là được. Em đã thu marco xem nhưng không sao sửa được mặc định như vậy. Nhờ mọi người xem dùm!

Sub Vung_In()    
Dim MyR As Range    
MyR.Select    
ActiveSheet.PageSetup.PrintArea = Selection
End Sub

Chỉ cần thế này thôi đồng chí:

Sub Vung_In()
    ActiveSheet.PageSetup.PrintArea = Selection.Address
End Sub

 

[hoangvuluan]

Thay đổi 1 ít như thế này là in được (nếu muốn in luôn thì thay PrintPreview thành PrinOut
Sub p()
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveSheet.PrintPreview
End Sub