In Slide Dang Trinh Chieu Trong Pp

2/10/2009

Hướng dẫn tạo nút lệnh ñể in trực tiếp Slide ñang trình chiếu trong PowerPoint

- CENTEA -

Trong thời gian gần ñây, CENTEA ñã nhận ñược những lời yêu cầu của quý Thầy Cô về việc hướng dẫn cách in trực tiếp 1 slide của file PowerPoint ñang ñược trình chiếu. Sau 1 thời gian tích cực tìm hiểu và nghiên cứu, hiện nay, CENTEA ñã áp dụng thành công tiện ích Visual Basic Application (VBA) trong PP ñể có thể thực hiện ñược ñiều trên. Vì vậy, CENTEA xin giới thiệu với quý Thầy Cô bài hướng dẫn về tiện ích này. CENTEA hy vọng sẽ ñáp ứng ñược các yêu cầu của Quý Thầy Cô trong công tác giảng dạy.

www.giaovien.net --//-- www.center4teachers.com [email protected]

Trang 1/4

2/10/2009 Những lưu ý trước khi thiết kế: -

Chúng ta cần phải thiết lập chế ñộ bảo vệ các Marco ở mức Low ñể chương trình có thể chạy các ñoạn mã lệnh. Cách thiết lập như sau: o Mở chương trình PowerPoint. o Vào menu Tools / Macro / Security. Chọn Low. Nhấn OK o Khởi ñộng lại chương trình PowerPoint.

-

Quý Thầy Cô có thể tham khảo công dụng của từng nút lệnh trong Control Box của VBA trong bài hướng dẫn trước Máy in phải ñược kết nối với máy tính. Và máy in ñó phải ñược thiết lập là máy in mặc ñịnh.

Bước 1: tạo module lệnh in Slide có tên PrintMe cho file PowerPoint. Quý Thầy Cô thực hiện như sau: - Trong phần soạn thảo của file PP, Thầy Cô nhấn Alt + F11 ñể mở trình soạn thảo của VBA. Quý Thầy Cô sẽ thấy khung soạn thảo như sau:

www.giaovien.net --//-- www.center4teachers.com [email protected]

Trang 2/4

2/10/2009

- Thầy Cô click phải vào khung quản lý dự án, chọn Insert > Module như hình dưới ñây. - Việc làm này nhằm tạo 1 câu lệnh có tên PrintMe và câu lệnh này có tác dụng ñối với tất cả mọi slide của file PP. - Khi ñó, khung quản lý dự án sẽ có hình sau:

- Quý Thầy Cô click chọn Module 1, và nhập ñoạn lệnh sau ñây vào khung soạn thảo lệnh ở bên tay phải: Sub PrintMe() Dim n as Long ' Lấy số SlideID của slide ñang trình chiếu n = SlideShowWindows(1).View.Slide.SlideNumber ' Thiết lập các tùy chọn cho máy in With ActivePresentation.PrintOptions ' Chỉ in những vùng hiện có trong slide ñang trình chiếu .RangeType = ppPrintSlideRange ' Quý Thầy Cô có thể ñổi thành .RangeType = ppPrintAll ñể in tất cả các slide có trong file PP. Khi ñó, Quý Thầy Cô cần xóa bỏ 4 dòng dưới ñây ñể in tất cả. With .Ranges .ClearAll .Add Start:=n, End:=n End With .NumberOfCopies = 1 ' Số lượng bản in là 1 bản. Và chế ñộ in là chế ñộ notes pages. .OutputType = ppPrintOutputNotesPages .PrintHiddenSlides = msoTrue

www.giaovien.net --//-- www.center4teachers.com [email protected]

Trang 3/4

2/10/2009 .PrintColorType = ppPrintBlackAndWhite .FitToPage = msoTrue .FrameSlides = msoFalse End With ' thực hiện lệnh in ActivePresentation.PrintOut End Sub

- Các dòng chữ màu xanh lá ở phía trên ñược CENTEA dùng ñể giải thích các câu lệnh, Quý Thầy Cô có thể bỏ các dòng ñó ñi khi nhập mã lệnh cho module. - Sau khi tạo module lệnh PrintMe, quý Thầy Cô cần tạo các nút lệnh ở mỗi slide, ñể khi chúng ta nhấn vào nút lệnh ñó, thì lệnh in PrintMe sẽ ñược thực thi. Bước 2: tạo nút lệnh - Quý Thầy Cô trở lại màn hình soạn thảo PP bằng cách tắt cửa sổ soạn lệnh của VBA. - Trong phần soạn thảo PP, quý Thầy Cô chọn View > Toolbars > Control Toolbox ñể hiển thị hộp công cụ các nút lệnh. - ðầu tiên, Thầy Cô click chọn vào nút Command Button ở thanh công cụ và vẽ nút lệnh In Slide ở vị trí mong muốn. ðặt các thuộc tính cho nút lệnh này như sau: Caption : Print This Slide. (CENTEA kính ñề nghị Thầy Cô xem thêm các bài hướng dẫn trước ñể biết chi tiết cách tạo nút lệnh này) - Tiếp theo, quý Thầy Cô click phải vào nút lệnh vừa tạo và chọn View Code ñể nhập lệnh thực thi khi nút lệnh ñược click chọn. Khi ñó, ở khung soạn thảo câu lệnh của VBA, thầy cô nhập ñoạn mã sau: Private Sub CommandButton1_Click() PrintMe End Sub Lưu ý: - Nếu trong file PP có nhiều slide, thì ở mỗi slide, Thầy Cô ñều thực hiện các công ñoạn ở bước 2. - Quý Thầy Cô có thể sử dụng lại slide demo của CENTEA, và chọn chế ñộ Insert > Duplicate Slide ñể tạo ra các slide mới có sẵn nút lệnh kèm theo. Như vậy, CENTEA vừa trình bày ñể tạo nút lệnh in 1 slide khi ñang trình chiếu trong PowerPoint. Hy vọng bài hướng dẫn này sẽ giúp các Thầy Cô tạo cho mình những công cụ hỗ trợ cho bài giảng của mình. Thực hiện: Nhất Tâm – giaovien.net www.giaovien.net --//-- www.center4teachers.com [email protected]

Trang 4/4