-
01-24-2014, 03:58 PM #1Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 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ọngView more random threads:
- Form nhập liệu và bảng tổng hợp
- cách tự tạo sổ phần mềm excel kế toán
- Xử lý giúp Lỗi 40040 trong Excel 2003
- Hàm tính tổng cò điều kiện trong excel
- Lập trình VBA nhập môn
- Phát hành sách Lập trình VBA trong Excel
- kế toán exel
- Hỏi, đáp về lập trình VBA trong Excel.
- Tạo Form dùng ListBox và hàm Find để tìm.
- Pha Password excell file
-
01-25-2014, 02:23 PM #2Junior Member
- Ngày tham gia
- Dec 2015
- Bài viết
- 0
Ðề: 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
-
01-26-2014, 04:23 PM #3Silver member
- Ngày tham gia
- Apr 2016
- Bài viết
- 16
Ðề: 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!!!
-
01-26-2014, 04:24 PM #4Junior Member
- Ngày tham gia
- Dec 2015
- Bài viết
- 0
Ðề: 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!!!
-
01-26-2014, 05:49 PM #5Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA
Gửi bởi hieungxngoc
-
01-26-2014, 06:04 PM #6Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA
Gửi bởi hieungxngoc
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ữ
-
01-26-2014, 09:28 PM #7Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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 đỡ.
-
01-26-2014, 10:29 PM #8Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA
Gửi bởi hieungxngoc
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
-
01-27-2014, 12:13 AM #9Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA
Gửi bởi hieungxngoc
Chép code này vào và chạy nó
Mã nguồn PHP:[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 Next End Sub[/COLOR]
-
01-27-2014, 03:06 AM #10Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA
Gửi bởi xuanthanh
Nếu mình cần in từ trang 3 đến trang 5 thì làm thế nào vậy bạn ơi!!!
Sự ra đời của các thiết bị công nghệ – khoa học tiền tiến đã tạo tiền đề thúc đẩy nền kinh tế, từng lớp phát triển hơn. Những thiết bị, ứng dụng này tương trợ con người giải quyết công việc mau...
Bàn luận nhiều tác động tích cực của công nghệ thông tin cho con người