THÔNG BÁO LỊCH TẬP HUẤN CỦA CỤC THUẾ VỀ CHÍNH SÁCH THUẾ MỚI
TỪ NGÀY 17/07/2014 ĐẾN NGÀY 23/07/2014


DOWNLOAD CÁC VĂN BẢN HIỆU LỰC NĂM 2014 VỀ THUẾ TNDN - TNCN - GTGT - HÓA ĐƠN

Trang 2/3 đầuđầu 123 cuốicuối
kết quả từ 11 tới 20 trên 29

Ðề tài:
Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

  1. #1
    Tham gia ngày
    Jan 2014
    Bài gởi
    12
    Cảm ơn
    10
    Được cảm ơn 0 lần trong 0 bài viết
    Rep Power
    0

    Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

    Mình có một file đã định dạng vùng in các phiếu hàng, nhập số thứ tự của phiếu cần in vào ô mặc định và nhấn in thì sẽ in được phiếu cần in, mỗi lần chỉ in được 1 phiếu có số thứ tự đã nhập. Vấn đề này đôi lúc gây thiếu sót mất 1 hoặc vài phiếu nào đó.

    Vì vậy, mong các cao thủ giúp đỡ về VBA: làm cách nào đó để nhập dữ liệu dãy số thứ tự của các phiếu cần in và in được một loạt phiếu cần thiết.

    Mong các cao thủ chỉ giáo. Trân trọng

    Các bài viết khác cùng chuyên mục:


  2. # ADS
    DanketoanAds Circuit advertisement
    Tham gia ngày
    Always
    Bài gởi
    Many
     
  3. #11
    Tham gia ngày
    Aug 2011
    Nơi ở
    Phường Tân Mai, TP. Biên Hòa, T. Đồng Nai
    Bài gởi
    767
    Cảm ơn
    316
    Được cảm ơn 877 lần trong 382 bài viết
    Rep Power
    21

    Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

    Trong File tôi chỉ làm có 10 phiếu (5 ntrang A4) xác nhận chuyển xe và khối lượng vận chuyển. nếu muốn in phiếu từ phiếu 11 đến phiếu 20 thì tại C4 gõ vào số 11 rồi sử dụng lệnh in là xong, tương tự muốn 21 đến 30 tại C4 gõ 21.
    Tập tin kèm theo Tập tin kèm theo

  4. Các thành viên đã cảm ơn be09 về bài viết hữu ích này :


  5. #12
    Tham gia ngày
    Nov 2013
    Bài gởi
    187
    Cảm ơn
    1
    Được cảm ơn 74 lần trong 67 bài viết
    Rep Power
    3

    Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

    morning,

    Lần đầu tiên khi chon Print trang InPhieukomau

    1- Chọn Print Active Sheets
    2- Thấy phía dưới là 1 of 3 !!!!!
    3- Bấm ESC, rồi vào View -->Page Break Preview
    3- ahahahah thì ra cái lòng thòng số phiếu cần in (Crappy)
    4- Chỉnh đúng vị trí như trong hình Page 1 , ko còn cung quăng
    5- Trở lại Print --> nhìn phía dưới trang --> 1 of 1
    6- OK

    Muốn in bao biêu tờ thì adjust ngay --> Copies --> 5 ( 5 lần)
    Muốn trang nào thì Page 3 to 5


  6. Các thành viên đã cảm ơn Wind_Flower về bài viết hữu ích này :


  7. #13
    Tham gia ngày
    Jan 2014
    Bài gởi
    12
    Cảm ơn
    10
    Được cảm ơn 0 lần trong 0 bài viết
    Rep Power
    0

    Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

    Trích Nguyên văn bởi be09 View Post
    Trong File tôi chỉ làm có 10 phiếu (5 ntrang A4) xác nhận chuyển xe và khối lượng vận chuyển. nếu muốn in phiếu từ phiếu 11 đến phiếu 20 thì tại C4 gõ vào số 11 rồi sử dụng lệnh in là xong, tương tự muốn 21 đến 30 tại C4 gõ 21.
    Cám ơn bạn đã quan tâm, nhưng cái mình cần ở đây là không copy ra như bạn mà có thể tạo mã để tự động in các trang mình cần. Ví như có đoạn code in trang chẵn - lẽ vậy

  8. #14
    Tham gia ngày
    Jan 2014
    Bài gởi
    12
    Cảm ơn
    10
    Được cảm ơn 0 lần trong 0 bài viết
    Rep Power
    0

    Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

    Trích Nguyên văn bởi xuanthanh View Post
    Đơn giản như "đan rổ"
    Chép code này vào và chạy nó

    PHP Code:
    Sub InPhieu()
        
    Dim WsDaTa As Worksheet
        Dim WsPrint 
    As Worksheet
        Set WsDaTa 
    Worksheets("Lichvanchuyen")
        
    Set WsPrint Worksheets("Inphieukomau")
        
    Dim i As Integer
        
    For 6 To WsDaTa.Range("A65000").End(xlUp).Row
            WsPrint
    .Range("M1") = WsDaTa.Range("A" i)
            
    WsPrint.PrintOut
        Next
    End Sub 
    Thân mến
    Cám ơn bạn, mình đã chỉnh sữa chút ít cho đúng tên sheet với file của mình và đã in được, nhưng nó chạy từ phiếu số 1 đến số 25 là dừng. Cũng chưa theo ý mình lắm, bạn có thể giúp thêm 1 đoạn nữa là tạo thêm cho mình 1 form để nó in nhưng trang mình cần, ví dụ như từ trang 7 đến trang 15 được ko

    Chân thành cám ơn

  9. #15
    Tham gia ngày
    Nov 2013
    Bài gởi
    187
    Cảm ơn
    1
    Được cảm ơn 74 lần trong 67 bài viết
    Rep Power
    3

    Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

    Trích Nguyên văn bởi hieungxngoc View Post
    ví dụ như từ trang 7 đến trang 15 được ko
    WsPrint.PrintOut from:=7, to:=15

  10. Các thành viên đã cảm ơn Wind_Flower về bài viết hữu ích này :


  11. #16
    Tham gia ngày
    Jan 2014
    Bài gởi
    12
    Cảm ơn
    10
    Được cảm ơn 0 lần trong 0 bài viết
    Rep Power
    0

    Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

    Trích Nguyên văn bởi Wind_Flower View Post
    WsPrint.PrintOut from:=7, to:=15
    Chèn vào chỗ nào vậy bạn, mình đang tập tành vào VBA nên chưa rõ, nếu tạo được 1 bảng để điền trang cần in vào thì tốt hơn. Cám ơn

  12. #17
    Tham gia ngày
    Dec 2011
    Bài gởi
    605
    Cảm ơn
    355
    Được cảm ơn 270 lần trong 192 bài viết
    Rep Power
    14

    Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

    Bác thủ cái này xem có tiện không nha.
    Em mới làm quen khái niệm VBA nên ko giúp bác đc nhiều, sang năm mới em sẽ ngâm cứu vụ này vì thấy nó thiết thực và có thể dùng nhiều trong tương lai ^^!
    Mã HTML:
    http://www.mediafire.com/view/nrbb0pkoielg1sf/Thang01]Thang01
    orr
    http://www.mediafire.com/download/nrbb0pkoielg1sf/Thang01.xlsm]Thang01
    orr
    http://www.teachexcel.com/free-excel-macros/m-58,Print-Specific-Pages-in-Excel.html
    Ngẫm kỹ thì thấy bài này của Bác khá khó,
    Lúc in thì có phải là in từ trang 3 tới 5 đâu (3 liền 4 liền 5), có khi in trang 2;4;6 thôi (bỏ qua trang 3 và trang 5).
    các điền giá trị trong TH này em chưa nghĩ ra!


    Thân./.

    P/s: Chúc mừng năm mới, chúc Bác Mã đáo thành công!
    :phao: :phaohoa:
    thay đổi nội dung bởi: newbee, 30-01-2014 lúc 09:18

  13. Các thành viên đã cảm ơn newbee về bài viết hữu ích này :


  14. #18
    Tham gia ngày
    Jan 2014
    Bài gởi
    12
    Cảm ơn
    10
    Được cảm ơn 0 lần trong 0 bài viết
    Rep Power
    0

    Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

    Trích Nguyên văn bởi newbee View Post
    Bác thủ cái này xem có tiện không nha.
    Em mới làm quen khái niệm VBA nên ko giúp bác đc nhiều, sang năm mới em sẽ ngâm cứu vụ này vì thấy nó thiết thực và có thể dùng nhiều trong tương lai ^^!


    Ngẫm kỹ thì thấy bài này của Bác khá khó,
    Lúc in thì có phải là in từ trang 3 tới 5 đâu (3 liền 4 liền 5), có khi in trang 2;4;6 thôi (bỏ qua trang 3 và trang 5).
    các điền giá trị trong TH này em chưa nghĩ ra!


    Thân./.

    P/s: Chúc mừng năm mới, chúc Bác Mã đáo thành công!
    :phao: :phaohoa:
    Cám ơn bạn.

    Nếu bạn viết được để in các trang liên tiếp thì cho mình xin là tốt rồi. Mình đang xài Of 2003 nên file trên mình chưa nghiên cứu được, bạn có thể chuyển giúp sang ecxel 2003 được không ạh. Chúc sức khỏe và thành đạt
    thay đổi nội dung bởi: hieungxngoc, 30-01-2014 lúc 10:02

  15. #19
    Tham gia ngày
    Nov 2013
    Bài gởi
    187
    Cảm ơn
    1
    Được cảm ơn 74 lần trong 67 bài viết
    Rep Power
    3

    Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

    Trích Nguyên văn bởi hieungxngoc View Post
    Chèn vào chỗ nào vậy bạn, mình đang tập tành vào VBA nên chưa rõ, nếu tạo được 1 bảng để điền trang cần in vào thì tốt hơn. Cám ơn
    Mèn, ko biết gì về VBA mà muốn dùng VBA !!!

    For i = 6 To WsDaTa.Range("A65000").End(xlUp).Row
    WsPrint.Range("M1") = WsDaTa.Range("A" & i)
    WsPrint.PrintOut
    Next

    Từ row 6 đến cuối dòng sheet là (A65000) tức là 65000 rows

    ì cậu đã set trong Layout cái area rồi, nên cái VBA bé vỡ lòng print . Chứ ko có điều chỉnh gì hết . Nó là default print giấy 8x11 inch

    Kihi cậu muốn in từ trang này đến trang kháck thì nlock gà command như sau: Có dấu sắc " ' "

    ' WsPrint.PrintOut

    Paste hàng này vào ở dưới
    WsPrint.PrintOut from:=7, to:=15

    Muốn chẳng lẻ phải đổi lối viết loop

    For Page = trangdầu To Tongsotrang Step 2

    Nếu trang đầu là 1 thì nhẩy 2 bước là 3 . Như vậy 1,3,5, v.v.v......
    Nếu trang đầu là 2 thì nhẩy 2 bước là 4 . Như vậy 2,4,6 v.v.v......

    Muốn xác định full page thì Excel phải mượn đỡ java
    Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")

    Muốn thay đổi khổ giấi lại nào

    GET.DOCUMENT(khổ Giay, size)

    Muốn giấu diếm thì
    .Parent.Rows(cell.Row).Hidden = True hoặc false

    Trong Excel đã có sẵn, học làm gì những thứ print này ???? Ngoại trừ data rộng mà muốn in cột nào, hàng nào mới dùng VBA, hoặc ko muốn bịt ko cho thấy cells nào

    Để dành thì thì giờ học thức khác, hoặc dùng ORCAD (điện tử), Autocad (Mechanical) in ra Blue Print

  16. Có 2 thành viên sau đây cảm ơn Wind_Flower vì bài viết có ích này:


  17. #20
    Tham gia ngày
    Aug 2011
    Nơi ở
    Phường Tân Mai, TP. Biên Hòa, T. Đồng Nai
    Bài gởi
    767
    Cảm ơn
    316
    Được cảm ơn 877 lần trong 382 bài viết
    Rep Power
    21

    Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

    Cám ơn Wind_Flower 1 cái để lấy hên đầu năm nhé!

    Chúc bạn và gia đình năm mới an khang, thịnh vượng và có nhiều đóng góp cho diễn đàn.
    thay đổi nội dung bởi: be09, 10-04-2014 lúc 11:04

Trang 2/3 đầuđầu 123 cuốicuối

Thông tin về chủ đề

Users Browsing this Thread

Hiện đang có 1 người xem chủ đề này. (0 thành viên và 1 khách)

Quyền hạn

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •