Chỉnh Page setup trực tiếp trên bảng tính Excel

[Duong gia]

Chào các anh chị, các anh chị có thể kết hợp VBA + Toggle button hoặc Spin button để Page setup trực tiếp trên bảng tính Excel mà không cần phải click vào File -> Page setup .v.v. không, giúp mình với, cám ơn nhiều.

 

[tedaynui]

Bạn có thể tạo một nút bấm trên Toolbar như sau :
+ Click phải lên thanh Toolbar / chọn Customize... /
+ Chọn Tab Commands / khung trái chọn File / Khung bên phải chọn Page Setup và Click chuột - kéo rê lê thanh Toolbar và thả ra
+ Sau đó đóng cửa sổ Customize

TDN

 

[Duong gia]

Bạn có thể tạo một nút bấm trên Toolbar như sau : + Click phải lên thanh Toolbar / chọn Customize... / + Chọn Tab Commands / khung trái chọn File / Khung bên phải chọn Page Setup và Click chuột - kéo rê lê thanh Toolbar và thả ra + Sau đó đóng cửa sổ Customize TDN

Cám ơn bạn đã quan tâm. Nhưng không phải vậy. Do mình đang in sổ kế toán nhiều quá, có lúc nó dư mấy dòng, có lúc nó thiếu mấy dòng, nên mình muốn dùng Spin button trên bảng tính để tiện tăng giảm lê trên lề dưới, chứ vô page setup chỉnh thì mất thời gian quá.

 

[tedaynui]

Cám ơn bạn đã quan tâm. Nhưng không phải vậy. Do mình đang in sổ kế toán nhiều quá, có lúc nó dư mấy dòng, có lúc nó thiếu mấy dòng, nên mình muốn dùng Spin button trên bảng tính để tiện tăng giảm lê trên lề dưới, chứ vô page setup chỉnh thì mất thời gian quá.

Vậy bạn có thể điều chỉnh trực tiếp trong chế độ Print Preview.
Trong chế độ Print Preview, bạn click vào nút Margins lúc đó bạn sẽ thấy các đường giới hạn lề ờ xung quanh. Lúc nàu bạn có thể dùng chuột để chỉnh lề cho vừa ý.

TDN

 

[Pansy_flower]

Anh chọn view/page break preview anh sẽ chỉnh sửa trang trực tiếp trên sheet hiện hành. Nếu muốn trở lại anh click vào view/normal.

 

[ptm0412]

Nên chỉnh trong Page Break Preview.

Chỉnh trong Print preview là chỉnh hàng loạt, chỉnh trong Page Break Preview là chỉnh đơn lẻ, trang nào cần chỉnh mới chỉnh. Vì theo ý Duong gia là chỉnh khi thì thêm, khi thì bớt chứ không phải chỉnh hàng loạt.
Ngoài ra co thể insert 1 page break khi cần sang trang trong Page Break Preview.

 

[dat2007]

Chào các anh chị, các anh chị có thể kết hợp VBA + Toggle button hoặc Spin button để Page setup trực tiếp trên bảng tính Excel mà không cần phải click vào File -> Page setup .v.v. không, giúp mình với, cám ơn nhiều.

Bạn xem Files Ví dụ đi kèm

Lưu ý:
Đây là Code chỉnh PageSetup đồng loạt trong các Sheet. Còn nếu chỉnh từng Sheet riêng thì bạn tự thêm và sửa lại Code cho phù hợp nhé

Sub Pg_Set() 
Dim L, R, T, B, H, F
Sheets(1).Select ' Lay gia tri le
L = Cells(7, 3)
R = Cells(9, 3)
T = Cells(11, 3)
B = Cells(13, 3)
H = Cells(15, 3)
F = Cells(17, 3)
' Dat le cho cac Sheet
For i = 1 To ActiveWorkbook.Worksheets.Count
  Worksheets(i).Select
  With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(L)
        .RightMargin = Application.InchesToPoints(R)
        .TopMargin = Application.InchesToPoints(T)
        .BottomMargin = Application.InchesToPoints(B)
        .HeaderMargin = Application.InchesToPoints(H)
        .FooterMargin = Application.InchesToPoints(F)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
Next i
    Sheets(1).Select
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

 

[ditimdl]

Cái này có thể chuyển thành 1 add in để sử dụng được không vậy dat2007?