Xin hướng dẫn cách tạo mẫu in giấy khen và lệnh in 1 lúc nhiều trang

Liên hệ QC

maịkhoa

Thành viên mới
Tham gia
3/12/08
Bài viết
15
Được thích
1
Thưa các bạn, mình đang làm 1 file in giấy khen cho trường nhưng không biết cách liên kết dữ liệu từ Sheet danh sách khen đến sheet trang in (những ô màu xanh) và cách làm thế nào để chỉ cần 1 lần lệnh in là có thể in hết danh sách
- Xin nhờ các bạn chỉ thêm cách tạo Form liên kết Sheet như mẫu ở Sheet Menu

Rất mong được sự giúp đở của các bạn, xin cám ơn.
 

File đính kèm

  • Mau in giay khen.xls
    28.5 KB · Đọc: 2,001
Thưa các bạn, mình đang làm 1 file in giấy khen cho trường nhưng không biết cách liên kết dữ liệu từ Sheet danh sách khen đến sheet trang in (những ô màu xanh) và cách làm thế nào để chỉ cần 1 lần lệnh in là có thể in hết danh sách
- Xin nhờ các bạn chỉ thêm cách tạo Form liên kết Sheet như mẫu ở Sheet Menu

Rất mong được sự giúp đở của các bạn, xin cám ơn.

Bạn dùng code sau nhé:

Mã:
Sub InGiayKhen()
Dim rng As Range
On Error Resume Next
Set rng = Application.InputBox( _
"Vui long quet chon vung co so thu tu can in " & _
    vbNewLine & vbNewLine & vbNewLine & _
    vbNewLine & "cot A Sheet 'Danh Sach Khen'  ", "Chon so thu tu", Type:=8)
On Error GoTo 0
If Not rng Is Nothing Then
  For Each rng In rng
    Range("b25") = rng.Value
  [B][COLOR=green]  ' neu ban muon in luon khong can xem lai thi thay PrintPreview bang PrintOut[/COLOR][/B]
    If Range("d13").Value <> "" Then ActiveWindow.SelectedSheets.[B][COLOR=red]PrintPreview[/COLOR][/B]
  Next rng
Else
  MsgBox "Ban da khong chon in"
End If
End Sub
 

File đính kèm

  • Mau in giay khen-1.xls
    47 KB · Đọc: 1,478
Lần chỉnh sửa cuối:
Thưa các bạn, mình đang làm 1 file in giấy khen cho trường nhưng không biết cách liên kết dữ liệu từ Sheet danh sách khen đến sheet trang in (những ô màu xanh) và cách làm thế nào để chỉ cần 1 lần lệnh in là có thể in hết danh sách
- Xin nhờ các bạn chỉ thêm cách tạo Form liên kết Sheet như mẫu ở Sheet Menu

Rất mong được sự giúp đở của các bạn, xin cám ơn.

Ngoài cách của bác domfootwear là dùng code, bạn maikhoa cũng có thể dùng chức năng mail merge của word để in : dữ liệu từ Excel, form in ở word.
Nếu maikhoa có siêng thì tạo lại form in ở word, rồi mình làm lại bảng dữ liệu trong excel và tạo link cho bạn.
Bạn có thể gửi file theo diễn đàn này, hoặc gửi vào email cho mình : urdata123@gmail.com
 
Mình thấy vấn đề này nằm trong tầm tay thôi mà. Các bạn đừng nghĩ dùng Word đơn giản hơn Excel. Theo mình thì việc co dãn dòng cột với Excel rất linh động thuận tiện cho việc căn thả. Thậm chí, kết hợp với các Rectangle, TextBox, AutoSharp... thoải mái cho việc căn chỉnh theo yêu cầu. Đã bạn nào in tờ khai HQ, Hồ sơ hàng xuất sẽ thấy Exc lợi hại cỡ nào.

Vấn đề ở đây mình nghĩ là: Thời buổi này không ai in giấy khen đen trắng cả. Mà in màu thì đắt quá. Thường là căn thả trên mẫu in sẵn. Như vậy vấn đề không phải Merger nữa

Theo mình thì ta scan 1 tờ giấy khen, insert nó vào sheet và định dạng không in nó. Sau đó ta dùng các ô textbox chẳng hạn liên kết và hiển thị dữ liệu. Khi in ra chỉ có dữ liệu liên kết được in và vị trí của nó chuẩn xác như xếp tay vậy.
Dùng VBA để thay đổi dữ liệu và in ra toàn bộ danh sách. Lúc đó, với nhiệm vụ in giấy khen của 1 trường thì chuyện nhỏ như con thỏ
 
Mong bạn chỉ rõ hơn, mình nhấn lệnh in nhưng báo lỗi Macro hay Sectury gì đó, còn chèn code vào đâu? mình dốt VBA lắm. Cám ơn bạn
 
Mong bạn chỉ rõ hơn, mình nhấn lệnh in nhưng báo lỗi Macro hay Sectury gì đó, còn chèn code vào đâu? mình dốt VBA lắm. Cám ơn bạn
Bạn vào Tools\Macro, chọn Security... Hộp thoại hiện ra bạn chọn Medium... nhấn OK, thoát tất cả các file Excel, mở file đó lên lại, bạn thấy có thông báo, nhấn Enable macro...
Bây giờ chạy bình thường.
 
In giấy khen mình hay dùng chức năng Mail Merge của MS Word, kết hợp với danh sách trong Excel. Tuy không đúng như với yêu cầu của bạn, nhưng mình đang dùng phương pháp này, đáp ứng đầy đủ các yêu cầu của bạn, và mình thấy nó rất dễ dùng, hiệu quả. Mình đính kèm file mẫu mình làm sẵn, bạn tải về xem nhé.
 

File đính kèm

  • giay-khen-2010-2011.zip
    308.6 KB · Đọc: 2,072
Bài viết #2 của bạn domfootwear quá chuẩn, hay và rất pro. Thank!
 
Cho mình hỏi nếu muốn chèn thêm font vni vào cho đẹp thì làm thế nào??
 
làm bên word là xưa không khoa học. Bạn viết đoạn Code là in ấn toàn bộ trên Excel.
Ví dụ: Tôi có 100 học sinh cần in giấy khen, Tôi muốn in từ em 40 đến em 60 thì trong word làm được nhưng cực khổ lắm
 
làm bên word là xưa không khoa học. Bạn viết đoạn Code là in ấn toàn bộ trên Excel.
Ví dụ: Tôi có 100 học sinh cần in giấy khen, Tôi muốn in từ em 40 đến em 60 thì trong word làm được nhưng cực khổ lắm

bác nói làm bên word là xưa và không khoa học, muốn khoa học nên làm bên excel, muốn làm bên excel thì lại phải viết code nghe hài hước quá. Đâu phải ai cũng có đủ trình hiểu biết và viết code trên excel.

còn chuyện in trên word cực khổ?

danh sách có sẵn, chọn in từ số vào stt 40 đến 60 là xong nếu bác cho đó là cực khổ thì ... có lẽ bác chưa nắm vững chức năng trộn thư của word.

Nếu đánh giá khách quan em thấy excel hay word đều như nhau thôi, xét về tốc độ của cùng một máy in thì in 100 tờ bên word hay in 100 tờ bên excel thì khác gì nhau. Nói về cách căn chỉnh thì bên excel sử dụng các ô nhỏ nhưng bên word 203 sử dụng insert text nếu giữ phím alt rồi di chuột thì cũng đâu kém, còn dùng word 207 thì dùng bàn phím mà dịch chuyển nó dịch chuyển từng tí một cũng chuẩn khỏi phải chính.

tất cả là ở thói quen của mọi người thôi
 
Lần chỉnh sửa cuối:
Đồng ý với thầy aviaiva "tất cả là ở thói quen của mọi người thôi". Tôi có đủ khả năng để viết code in giấy khen trên Excel, tuy nhiên hiện tại thì tôi vẫn sử dụng chức năng Mail Merge trên Word (với data trên Excel) để in giấy khen. Theo kinh nghiệm của tôi thì nên chọn mẫu giấy khen trống trơn, chỉ có khung xung quanh và một số chi tiết in màu thôi, còn tất cả phần còn lại là để trống và mình sẽ đặt chữ vào thì việc căn chỉnh sẽ dễ dàng hơn.
 
m có file đang dùng nè

sử dụng mẫu giấy khen có sẵn, m chỉ in tên ... thôi
 

File đính kèm

  • mau in tong hop.xls
    69 KB · Đọc: 908
Mình cần giúp

sử dụng mẫu giấy khen có sẵn, m chỉ in tên ... thôi
Mình làm bên thiết kế, nhưng bây giờ Sếp mới nhận in 1 lô 400 cái bằng khen.
Bao gồm 400 tên. Đã in thành phẩm, giờ chỉ còn công đoạn in tên lên thôi.
Mà em thì gà cái vụ Excel với macro. Gửi các bro file hình minh họa, và bảng danh sách. Hy vọng các anh- chị trên này giúp e làm 1 file excel. Em xin 1 chầu cafe hậu tạ và làm quen ạ.
 

File đính kèm

  • giay khen.jpg
    giay khen.jpg
    161.6 KB · Đọc: 492
Gửi tặng thành viên GPE. Hãy liên hệ e mail lamngoc081077@yahoo.com. Vì mình không đưa tập tin lên diễn đàn được (trình độ tin học có hạn).
 
Chỉnh sửa lần cuối bởi điều hành viên:
Mình đang làm hơn chục cái giấy khen của Đảng, nhưng khi mình tải mẫu in giấy khen về rùi mà sao cú loay hoay mãi vẫn không làm được(tại mình hiện đang yếu về năng lực tin học)
Mong các bạn giúp đỡ
 
Làm kiểu các bạn thì hiệu quả không cao. Bạn nào cần tham khảo alo cho mình nhé: DD_0917376770
 
làm bên word là xưa không khoa học. Bạn viết đoạn Code là in ấn toàn bộ trên Excel.
Ví dụ: Tôi có 100 học sinh cần in giấy khen, Tôi muốn in từ em 40 đến em 60 thì trong word làm được nhưng cực khổ lắm
Mình muốn xin code viết giấy khen đó không bạn?
 
Web KT
Back
Top Bottom