giúp minh về hàm print với (1 người xem)

[kuvi1324]

cho mình hỏi:
mình dùng vba tạo 1 userform, trong đó có 2 button với chức năng là: xem trước khi in sheet3 (tên sheet là dulieu), in sheet3 (tên sheet là dulieu).
bạn nào giúp mình viết 2 hàm này với
nhân tiện cho mình hỏi
ví dụ mình có 1 file excel tên là chuongtrinh1 và 1 userform1 trong file đó
chỉ mình cách tạo 1 biểu tượng ngoài desktop (mặt cười chẳng hạn), khi click vào là hiện lên userform1 của chuongtrinh1 không vậy
thank

 

[nghiaphuc]

Trước hết cần đính chính một chút: Print là thủ tục (Sub) chứ không phải là hàm (Function).
- Xem trước khi in: Sheet3.PrintOut Preview:=True hoặc Sheets("dulieu").PrintOut Preview:=True
- In: Sheet3.PrintOut hoặc Sheets("dulieu").PrintOut

 

[kuvi1324]

cảm ơn nha, mới gửi câu hỏi, chưa đầy 3phút đã có câu trả lời, thank nhiều

 

[nghiaphuc]

nhân tiện cho mình hỏi
ví dụ mình có 1 file excel tên là chuongtrinh1 và 1 userform1 trong file đó
chỉ mình cách tạo 1 biểu tượng ngoài desktop (mặt cười chẳng hạn), khi click vào là hiện lên userform1 của chuongtrinh1 không vậy
thank

Bạn sử dụng code sau cho đối tượng ThisWorkbook, mỗi lần mở file lên thì Userform1 sẽ được mở ra:[GPECODE=vb]Private Sub Workbook_Open()
UserForm1.Show
End Sub[/GPECODE]
Còn cái biểu tượng ngoài Desktop này thì chỉ đơn giản là 1 cái shortcut của file Excel trên. Bạn click phải vào shortcut này, chọn Properties, nhấn nút Change Icon là bạn có thể thay đổi biểu tượng của shortcut.

 

[kuvi1324]

sub printpriview khi click thì xem được nhưng không thoát ra khỏi chế độ priview được bạn ơi

 

[nghiaphuc]

sub printpriview khi click thì xem được nhưng không thoát ra khỏi chế độ priview được bạn ơi

Muốn thoát thì bạn chỉ cần nhấn phím Esc là được chứ có khó gì?!

 

[kuvi1324]

lúc hiện lên trang priview thì userform vẫn hiện, bấm esc không thoát được, đứng cứng ngắt luôn, dùng task mới thoát được hix

 

[nghiaphuc]

lúc hiện lên trang priview thì userform vẫn hiện, bấm esc không thoát được, đứng cứng ngắt luôn, dùng task mới thoát được hix

À, ra thế. Bạn thêm câu lệnh Unload Me vào trước câu lệnh ở bài #2 nhé.

 

[kuvi1324]

Bạn sử dụng code sau cho đối tượng ThisWorkbook, mỗi lần mở file lên thì Userform1 sẽ được mở ra:[GPECODE=vb]Private Sub Workbook_Open()
UserForm1.Show
End Sub[/GPECODE]
Còn cái biểu tượng ngoài Desktop này thì chỉ đơn giản là 1 cái shortcut của file Excel trên. Bạn click phải vào shortcut này, chọn Properties, nhấn nút Change Icon là bạn có thể thay đổi biểu tượng của shortcut.

Mình đã làm như thế này mà vẫn không hiện lên usform được bạn à
Mình đang phải mở 1 sheet tạo 1 button sử dụng code trên mới mở được userform1
à, mình có 1 bảng dữ liệu trong sheet5 tự động lưu trữ những thông tin đã nhập vào từ userform1
vd ông Nguyễn Văn A, sinh năm 1989, khu phố 3, phường 4
ông Nguyễn Văn B, sinh năm 1990, khu phố 2, phường 6...
giờ làm sao truy xuất một người nào đó trong bảng dữ liệu sheet5 vào userform1 (để in ấn, tra cứu chẳng hạn)