• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

HỎI: in khổ giấy A4, khi form lớn hơn màn hình?

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Moderator: tungblt

User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 520 times

Re: HỎI: in khổ giấy A4, khi form lớn hơn màn hình?

Postby truongphu » Tue 06/10/2009 11:27 am

Hôm qua viết thiếu phần in
mà phần nầy cũng quan trọng
nên bổ sung.. Mời các bạn xem in
Attachments
Microsoft Visual Basic.rar
(40.52 KiB) Downloaded 301 times


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

diemphuong
Thành viên năng nổ
Thành viên năng nổ
Posts: 83
Joined: Thu 31/07/2008 10:40 pm

Re: HỎI: in khổ giấy A4, khi form lớn hơn màn hình?

Postby diemphuong » Wed 07/10/2009 9:07 am

- Anh PHÚ ơi bộ mua máy in rồi hả? để Phương dl về in thử rồi cho anh biết kết quả nghe!
- Oh, nhứt định gặp nhau trong Sinh nhật CLBVB mà! ;)
Thank you anh!

User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 520 times

Re: HỎI: in khổ giấy A4, khi form lớn hơn màn hình?

Postby truongphu » Wed 07/10/2009 11:02 am

diemphuong wrote:Anh PHÚ ơi bộ mua máy in rồi hả?


"bà nầy" nhớ dzai thiệt! :P
Tôi chưa mua máy in
tạm dùng soft FinePrint pdfFactory Pro 1.53
để in giả ra bảng PDF

diemphuong wrote:in thử rồi cho anh biết kết quả nghe!


Tôi đang hoàn thiện phần in...
cũng khó! :-?
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 520 times

Re: HỎI: in khổ giấy A4, khi form lớn hơn màn hình?

Postby truongphu » Wed 07/10/2009 11:23 am

Phiên bản mới nhất
có nghĩa là tốt nhất đến thời điểm Now

Copy of IN Khô A4 NEW 5.rar
(32.89 KiB) Downloaded 291 times



còn đây là phiên bản trước đó
(mỗi phiên bản có hay và dở riêng, chưa hòa hợp được chúng)
Attachments
IN Khô A4 NEW 4.rar
(32.7 KiB) Downloaded 259 times
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 520 times

Re: HỎI: in khổ giấy A4, khi form lớn hơn màn hình?

Postby truongphu » Thu 08/10/2009 7:41 am

Và đây là phiên bản cuối: đã kết hợp điểm hay các phiên bản trước
loại khỏi các thành phần rườm rà
tinh gọn và hợp lý code
(chỉ còn điểm nhỏ: góc trên trái khi in có bị 1 hình chữ nhật nài đó che 1 tí, chưa rõ nguyên nhân)
IN A4 Hoàn Thiên.rar
(32.38 KiB) Downloaded 287 times
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

vietboy_me
Thành viên chính thức
Thành viên chính thức
Posts: 24
Joined: Tue 15/07/2008 10:34 pm
Has thanked: 4 times

Re: HỎI: in khổ giấy A4, khi form lớn hơn màn hình?

Postby vietboy_me » Thu 08/10/2009 9:21 am

=D> =D> =D> đang chờ phiên bản gon nhẹ, tối ưu !
Ủa,nhưng sao chỉ có bác Phú "ra oai" vậy ta? Mong các "cao thủ" khác nữa giúp cho !!
Cảm ơn!

diemphuong
Thành viên năng nổ
Thành viên năng nổ
Posts: 83
Joined: Thu 31/07/2008 10:40 pm

Re: HỎI: in khổ giấy A4, khi form lớn hơn màn hình?

Postby diemphuong » Thu 08/10/2009 10:22 am

anh Phú ơi, diemphuong nói rõ lại yêu cầu của chương trình nghe:
- nền của chương trình là 1 PictureBox (tạm gọi là Pic Nền).
- trên Pic Nền đó đặt sẵn nhiều PictureBox khác (tạm gọi là Pic Chứa).Bên trong các Pic Chứa này đặt sẵn nhiều Image (và control khác) với top & left không cố dịnh (Mục đích - đã làm: khi di chuyển những Pic Chứa này thì di chuyển luôn các control nằm bên trong - cho tiện việc giữ nguyên vị trí các control này).
- Tóm lại: những control đặt trong các Pic Chứa PHẢI IN RA ĐƯỢC,dù Pic Chứa đặt ở đầu trang, cuối trang, giữa trang hay bất kỳ nơi nào trong trang (lỗi đã mắc phải là các control nằm bên trong Pic Chứa đặt ở cuối trang không in ra được).
(Làm phiền anh thêm chút,thông cảm cho em sau nay có người thông cảm lại cho anh mà!! Hihi.... :"> )

User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 520 times

Re: HỎI: in khổ giấy A4, khi form lớn hơn màn hình?

Postby truongphu » Thu 08/10/2009 2:25 pm

- nền của chương trình là 1 PictureBox (tạm gọi là Pic Nền).

Đó là Pic 1 to đùng
- trên Pic Nền đó đặt sẵn nhiều PictureBox khác (tạm gọi là Pic Chứa).

Đó là mảng Pic3 mà ta thêm vào vô tư
- Bên trong các Pic Chứa này đặt sẵn nhiều Image

Các image add vào Pic thêm vô tư
- với top & left không cố dịnh

Dí chuột mà kéo lê khắp
- khi di chuyển những Pic Chứa này thì di chuyển luôn các control nằm bên trong

thì các image đâu có lọt ra ngoài ?
- Tóm lại: những control đặt trong các Pic Chứa PHẢI IN RA ĐƯỢC

diemphuong in không được à?
- dù Pic Chứa đặt ở đầu trang, cuối trang, giữa trang hay bất kỳ nơi nào trong trang (lỗi đã mắc phải là các control nằm bên trong Pic Chứa đặt ở cuối trang không in ra được).

diemphuong in không được à?
Tôi test kỹ qua in giả tạo file PDF, thấy OK. Xem file PDF đính kèm
Bang in qua pdf.rar
(44.67 KiB) Downloaded 258 times


thông cảm cho em sau nay có người thông cảm lại cho anh mà!! :">

phỉnh, nhưng nghe cũng ngỡ trẻ thêm
file đã test lỗi và test hình
Attachments
IN A4 Hoàn Thiên 2.rar
(32.63 KiB) Downloaded 284 times
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

diemphuong
Thành viên năng nổ
Thành viên năng nổ
Posts: 83
Joined: Thu 31/07/2008 10:40 pm

Re: HỎI: in khổ giấy A4, khi form lớn hơn màn hình?

Postby diemphuong » Fri 09/10/2009 12:49 pm

* Anh Phú tài thật! =D> =D> =D> em đã in được rồii. Tuy nhiên có 1 trục trặc nhỏ:
1/ ý em muốn đặt những Image hình xe (hay những control khác) trong các pic không theo 1 vị trí nhứt định, khi dùng ScrollBar cuộn lên,xuống vị trí các xe trong đó không thay đổi. Nhưng code của anh khi cuộn thì tất cả đều xếp hàng ngang, không giữ nguyên vị trí đã thiết kế, chết em luôn ! hihi...
2/ Trong code của anh các xe có cùng 1 tên + index, nếu các xe có tên khác nhau (mỗi xe 1 tên khác + index)thì in ra được không?
3/ Trong code của anh các pic có cùng 1 tên + index, nếu các pic có tên khác nhau (mỗi pic 1 tên khác + index)thì in ra được không?
- anh Phú gia công lần nữa há? để có "Hoàn Thiện 3.rar" há ??!!!!!!!!!
* còn nữa, anh cho em xin địa chỉ để em gửi tặng anh cây bút bao da hàng hiệu của Pháp như đã hứa, xem như chút quà lưu niệm nhé!? (không cho là giận đó!). Nhìn hình của anh, thấy chưa già mà sao than là: ..."nghe cũng ngỡ trẻ thêm"...??? anh vui tính nhỉ!!! :)
=D> =D> =D>

User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 520 times

Re: HỎI: in khổ giấy A4, khi form lớn hơn màn hình?

Postby truongphu » Sat 10/10/2009 7:53 am

diemphuong wrote:Nhưng code của anh khi cuộn thì tất cả đều xếp hàng ngang, không giữ nguyên vị trí đã thiết kế, chết em luôn ! hihi...


Đấy là silver star viết, tôi thấy cũng đơn giản nên để yên
dp wrote:=D> =D> =D> silver star hay lắm!!


Muốn giữ nguyên vị trí thiết kế thì tại frmscroll, bỏ câu frmmain.Hinh1(i).Top = 240
thay vào đó là frmmain.Hinh1(i).Top = frmmain.Hinh1(i).Top -Val

diemphuong wrote:nếu các pic có tên khác nhau (mỗi pic 1 tên khác + index)thì in ra được không?


Muốn thế thì dùng code tôi đã viết trang trước
viewtopic.php?f=7&t=9211#p58982
Với code nầy, ưng thêm Label, TextBox, Picture hay Image (những control in được) bao nhiêu cũng được. Khó mỗi điều là nếu thêm mỗi control thì cần 1 button, (dp đã yêu cầu thêm control bao nhiêu tùy ý) không lẽ làm sẵn 100 button?
Do đó, đơn giản, ta phải dùng mảng, ta chỉ điều khiển trên index
Và như vậy, đã Add và Print mảng Picture3 thì dp cũng có thể Add và Print mảng Picture4. Code cứ theo đấy mà làm
diemphuong wrote:nếu các xe có tên khác nhau (mỗi xe 1 tên khác + index)thì in ra được không?

Như câu trên

diemphuong wrote:xem như chút quà lưu niệm

cảm ơn dp, sợ bưu điện thất lạc thì tiếc, xin hẹn lúc nào thuận tiện
--------
Ở frmmain, tôi có dùng kỹ thuật di chuyển control gọn, nhưng chưa hay, hình còn giật
dp hãy thế bằng kỹ thuật sau đây tuyệt hơn nhiều:

Code: Select all

  1.  Const WM_NCLBUTTONDOWN As Long = &HA1&:   Const HTCAPTION As Long = 2&
  2.   Private Declare Function ReleaseCapture Lib "user32" () As Long
  3.  
  4. Private Sub Picture3_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  5.     Call ReleaseCapture
  6.     Call SendMessage(Picture3(Index).hWnd, WM_NCLBUTTONDOWN, ByVal HTCAPTION, ByVal 0&)
  7. End Sub

bye
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

vietboy_me
Thành viên chính thức
Thành viên chính thức
Posts: 24
Joined: Tue 15/07/2008 10:34 pm
Has thanked: 4 times

Re: HỎI: in khổ giấy A4, khi form lớn hơn màn hình?

Postby vietboy_me » Mon 12/10/2009 11:42 am

Báo cáo bạn truongphu, sau khi test code của bạn và cố gắng gia công cho phù hợp với chương trình của mình nhưng không được. Vì chương trình yêu cầu người dùng nhập liệu ngẫu nhiên có thể cùng lúc nhiều control và in hết ra (có nghĩa bất kỳ gì nhập ngẫu nhiên thì in ra). Và trong thao tác khi di chuyển Pic Nền (nói theo kiểu DiemPhuong) tất cả những gì nằm trong đó phải giữ nguyên vị trí. Code của bạn khi cuộn bị thay đổi vị trí hoặc mất hình.
Tóm lại:
- làm sao cho bất kỳ gì người dùng nhập ngẫu nhiên được thì in ra được (có cần phải khai bào cụ thể từng control không?).
- trong thao tác khi di chuyển Pic Nền, các control bên trong giữ nguyên vị trí lúc người dùng nhập ngẫu nhiên.
Mong truongphu hay bạn nào đó hoàn thiện cho mục đích trên.
Cảm ơn!!

User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 520 times

Re: HỎI: in khổ giấy A4, khi form lớn hơn màn hình?

Postby truongphu » Fri 23/10/2009 8:29 am

o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh


Return to “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Who is online

Users browsing this forum: No registered users and 4 guests