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

[hoangocbn123]

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

View more random threads:

• giải thích chữ
• Nhập ngày hiện tại ở bất kỳ Cell nào bằng Calendar
• Xử lý giúp Lỗi 40040 trong Excel 2003
• Nhập một số, cho một chử số trong EXCEL
• kế toán excel
• Anh chị viết giúp em đoạn code cho file đính kèm
• Trong Excel làm cách nào đếm đươc tháng hiện tại có bao nhiêu ngày thứ hai,
• Tạo Form nhập liệu trong exel
• CÁch tính tổng các số trong một số!
• Form nhập liệu và bảng tổng hợp

[ngocdona]

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

Chắc ở VN hay dấu diến hide row , column nên bị vậy . Đoán thui

Chéc en thì viết VBA để print region area hoạc range nào múm bing bing

[inbaongoc007]

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

không hide row, column, mà được định dạng vùng cần in thôi, nhập STT vào ô mặc định là in được.

Nếu làm thủ công bằng cách copy ra nhiều bảng giống nhau, đặt số thứ tự vào các bảng và in cũng được nhưng làm vậy thì rối lắm và có phần hơi nặng file.

Mong các cao thủ chỉ giáo!!!

[duongland88]

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

không hide row, column, mà được định dạng vùng cần in thôi, nhập STT vào ô mặc định là in được.

Nếu làm thủ công bằng cách copy ra nhiều bảng giống nhau, đặt số thứ tự vào các bảng và in cũng được nhưng làm vậy thì rối lắm và có phần hơi nặng file.

Mong các cao thủ chỉ giáo!!!

[tranhuytn668]

Ðề: 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ái vụ này phải Up File lên, dựa vào dữ liệu có sẳn và với nội dung phiếu thì mới có giải pháp cụ thể, còn đoán mò để đưa ra giải pháp thì không thực tế, phải trả lời nhiều lần thì không giải quyết được vấn đề và sẽ mất nhiều thời gian vô nghĩa.

[samnguyen]

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

không hide row, column, mà được định dạng vùng cần in thôi, nhập STT vào ô mặc định là in được.

Nếu làm thủ công bằng cách copy ra nhiều bảng giống nhau, đặt số thứ tự vào các bảng và in cũng được nhưng làm vậy thì rối lắm và có phần hơi nặng file.

Mong các cao thủ chỉ giáo!!!

Confused !!! ko hiểu kiểu bên VN

Tại sao lại phải Enter STT ??? dù ko có data vẫn Print được mà

Cách print " vùng " ( Area) mà mình muốn là
1- Drag (bôi đen vùng đó ), hoằ.c chọn rows, columns gì tùy ý
2- File-->Print
3- Setting --> chọn --> Print Selection
4- sẽ thấy Preview gốc bên tay phải

Làm như vậy thì ko cần hihe rows/columns gì hết . Nó sẽ focus vào area đó
Đôi khi bị chạy tầm bậy vì PageBreak (trường hợp này thường xẩy ra khi có Charts) , nên cần lưu ý . Nhìn trong Pagebreak hoặc Layout để chỉnh trước .
Khi adjust PageBreak làm rộng ra hoặc nhiều dòng hơn thì nó tự động thu nhỏ, rất khó đọc được chữ

[blogdau]

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

Mình đính kèm file dữ liệu, file hơi nặng nên phải xóa bớt nội dung không cần thiết...

Ví dụ mình cần in từ phiếu số 1 đến phiếu số 7, có cách nào để ra lệnh cho nó in một loạt từ số 1 đến số 7 không thay vì phải nhập 1 -> print, 2 -> print, 3 -> print..., 7 -> print

Mong các bạn giúp đỡ.

[tungbvit]

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

Mình đính kèm file dữ liệu, file hơi nặng nên phải xóa bớt nội dung không cần thiết...

Ví dụ mình cần in từ phiếu số 1 đến phiếu số 7, có cách nào để ra lệnh cho nó in một loạt từ số 1 đến số 7 không thay vì phải nhập 1 -> print, 2 -> print, 3 -> print..., 7 -> print

Mong các bạn giúp đỡ.

Nếu cậu bấm
1- View --> PageBreak View , sẽ thấy ngay giới hạn là cột H . Như vậy nó thiếu nên print tiếp sang trang kế . Do đó bị trouble
2- Kéo cái line DashLine (đường chấm chấm sọc ) sang I, để cậu có full range("A:I") như area cậu đã chọn

Giờ tôi phải thăng, 2am rồi

[kenshin]

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

Mình đính kèm file dữ liệu, file hơi nặng nên phải xóa bớt nội dung không cần thiết...

Ví dụ mình cần in từ phiếu số 1 đến phiếu số 7, có cách nào để ra lệnh cho nó in một loạt từ số 1 đến số 7 không thay vì phải nhập 1 -> print, 2 -> print, 3 -> print..., 7 -> print

Mong các bạn giúp đỡ.

Đơn giản như "đan rổ"
Chép code này vào và chạy nó

[COLOR=#000000]
Sub InPhieu[/COLOR][COLOR=#007700]()    [/COLOR][COLOR=#0000BB]Dim WsDaTa [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet    Dim WsPrint [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet    Set WsDaTa [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Lichvanchuyen"[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]Set WsPrint [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Inphieukomau"[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]Dim i [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer    [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]6 To WsDaTa[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A65000"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row        WsPrint[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"M1"[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]WsDaTa[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700])        [/COLOR][COLOR=#0000BB]WsPrint[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]PrintOut    NextEnd Sub[/COLOR] 

Thân mến

[penhi102]

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

Đơn giản như "đan rổ"
Chép code này vào và chạy nó

[COLOR=#000000]
Sub InPhieu[/COLOR][COLOR=#007700]()    [/COLOR][COLOR=#0000BB]Dim WsDaTa [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet    Dim WsPrint [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet    Set WsDaTa [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Lichvanchuyen"[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]Set WsPrint [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Inphieukomau"[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]Dim i [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer    [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]6 To WsDaTa[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A65000"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row        WsPrint[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"M1"[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]WsDaTa[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700])        [/COLOR][COLOR=#0000BB]WsPrint[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]PrintOut    NextEnd Sub[/COLOR] 

Thân mến

Mình chép vào và bấm run nhưng bị lỗi: "Run-time error '9': subscript out of range"

Nếu mình cần in từ trang 3 đến trang 5 thì làm thế nào vậy bạn ơi!!!