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

Thảo luận trong 'Excel và Giáo Dục' bắt đầu bởi maịkhoa, 29 Tháng chín 2010.

  1. maịkhoa

    maịkhoa New Member

    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.
     

    Các file đính kèm:

  2. Hai Lúa Miền Tây

    Hai Lúa Miền Tây Well-Known Member

    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
     

    Các file đính kèm:

    Last edited: 29 Tháng chín 2010
  3. glshop

    glshop New Member

    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
     
  4. sealand

    sealand Well-Known Member

    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ỏ
     
  5. maịkhoa

    maịkhoa New Member

    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
     
  6. Hai Lúa Miền Tây

    Hai Lúa Miền Tây Well-Known Member

    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.
     
  7. jdkhang

    jdkhang New Member

    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é.
     

    Các file đính kèm:

  8. dohuyhieu

    dohuyhieu New Member

    Bài viết #2 của bạn domfootwear quá chuẩn, hay và rất pro. Thank!
     
  9. centergraphic

    centergraphic New Member

    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??
     
  10. vtkmoduc

    vtkmoduc New Member

    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
     
  11. aviaiva

    aviaiva Active Member

    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
     
    Last edited: 27 Tháng bảy 2012
  12. nghiaphuc

    nghiaphuc Hoàng Nghĩa Phúc

    Đồ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.
     
  13. tb.tien_mhs

    tb.tien_mhs New Member

    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
     

    Các file đính kèm:

  14. chus_clv

    chus_clv New Member

    Mình cần giúp

    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 ạ.
     

    Các file đính kèm:

  15. lamdn07417

    lamdn07417 New Member

    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).
     
    Last edited by a moderator: 15 Tháng một 2013
  16. nghiaphuc

    nghiaphuc Hoàng Nghĩa Phúc

    Nếu không đưa file trực tiếp lên diễn đàn được thì bạn có thể đưa lên 1 trang chia sẻ file (www.mediafire.com chẳng hạn), sau đó copy link dán vào bài viết, vậy là được.
     
  17. hoang an sac

    hoang an sac New Member

    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 đỡ
     
  18. tuanhs

    tuanhs New Member

    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
     
  19. traitimbinhyen

    traitimbinhyen New Member

    Bạn có thì share cho anh em trên diễn đàn tham khảo nhé. Cảm ơn nhiều
     
  20. minh1981

    minh1981 New Member

    Mình muốn xin code viết giấy khen đó không bạn?
     

Chia sẻ trang này