Gitiho contest

Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.

Chương trình hội viên Gitiho

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

480+ khóa học

15 Danh mục theo kỹ năng, ngành nghề

Năng lực Lõi, Năng lực Chuyên môn, Năng lực Bổ trợ, Năng lực Quản lý

Khám phá ngay

2000+ đã đăng ký

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

83 khóa học Tin học văn phòng

85 khóa học Kỹ năng mềm

29 khóa học Ngoại ngữ

Khám phá ngay

500+ đã đăng ký

Gitiho for leading business

Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.

Đã được tin tưởng sử dụng bởi các doanh nghiệp

  1. Trang chủ
  2. Hỏi đáp
  3. Trang chủ
  4. Hỏi đáp
Phạm Tùng
Phạm Tùng
Thảo luận 0 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 6 lượt xem

code tạo nút in

Private Sub CMD_IN_Click()
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Mình tạo nút in trên sheet 1 gắn code như vậy thì nó in trang ở sheet 1, vậy giờ muốn in ở sheet khác thì làm thế nào ạ, mong anh chị chỉ giúp ạ

 

Thảo luận 0 câu trả lời
Lượt xem 6 lượt xem
Vỗ tay vỗ tay
Chia sẻ
Câu hỏi liên quan
Tải về ko mở được. Gitiho hỗ trợ giúp với.
Public Sub Data_STT(ws As Worksheet, Dong_BD As Long, cot_STT As String, cot_DongCuoi As String) 2 'Khai báo các biến sử dụng 3 Dim DongCuoi As Long 4 DongCuoi = ws.Range(cot_DongCuoi & Rows.Count).End(xlUp).Row 5 Dim i As Long 6 i = 1 7 Dim o_STT As Range, VungSTT As Range 8 Set VungSTT...
Xin GV hướng dẫn cách tạo file trừ tồn kho theo ngày giúp ạ. Số lượng tồn kho bị trừ phải đi kèm với đơn giá nhập khao
XIN HƯỚNG DẪN CODE ĐỂ TÁCH CÁC MÃ HÀNG THÀNH TỪ SHEET Ạ
...
Chào anh/chị, Vui lòng xem giúp minh hình ảnh đính kèm, khi mình chạy macro Delete_All_Shapes() thi bị lỗi. Vui lòng hướng dẫn cách khắc phục. Xin cảm ơn.
CHào anh/chị, Mình chạy code mẫu Sub Insert_Picture_Autofit() nhưng bị lỗi như hình. Vui lòng hướng dẫn mình cách sửa lỗi này? Cám ơn anh/chị,
Thầy có thể cho em xin code mẫu để in hàng loạt file excel trong cùng 01 foder được ko ạ
giúp mình với không tải được eBook code mẫu VBA
tôi đã dùng vlookup không ra kết quả Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("C9:C20"), Target) Is Nothing Then If Range("C" & Target.Row) <> "" Then Range("C" & Target.Row).Value = Application.worksheetFuntion.VLookup(Range("C" &...
Scroll Top Top

Hỗ trợ khách hàng

VỀ GITIHO

hợp tác và liên kết

Tải App Gitiho

Kết nối với chúng tôi

Địa chỉ văn phòng: Phòng 302, tầng 3, Tòa nhà Tây Hà, KĐT mới Phùng Khoang, Phường Trung Văn, Quận Nam Từ Liêm, Thành phố Hà Nội, Việt Nam
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông