In File Ảnh(JPG and TIFF) trong VBA

Nơi trao đổi về VBA (Visual Basic for Application), lập trình cho ứng dụng Microsoft Office, AutoCAD...

Moderator: tungblt

Post Reply
KIMNGUU
Thành viên chính thức
Thành viên chính thức
Posts: 25
Joined: Fri 25/07/2008 2:38 pm
Has thanked: 2 times

In File Ảnh(JPG and TIFF) trong VBA

Post by KIMNGUU »

Chào các bác!
Em có một chức năng "IN ẢNH" trong vba.
Bác nào giúp em khi click "IN ẢNH" thì toàn bộ file ảnh trong 1 thư mục nào đó(Cái này em làm được phần tìm đến file ảnh đó rồi), thì toàn bộ số ảnh đó được IN!
em dùng ShellExecute trong shell32.dll mà cũng không được
  1. Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
  2.  (ByVal hWnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, _
  3.   ByVal lpParameters As String, ByVal lpDirectory As String, _
  4.  ByVal nShowCmd As Integer) As Long

  1. strFileName = "E\CCOC\CCOCVBA\TestAnh\Kiet_tac_cua_thien_nhien.Jpg"
  2. If FileExists(strFileName) = True Then
  3.    MsgBox "file nay co roi"
  4.    Debug.Print ShellExecute(0&, "printto", strFileName, Application.ActivePrinter, "", 0&)
  5.    End If

Nó vẫn không in được!
Cảm ơn các bác trước nha!
KIMNGUU
Thành viên chính thức
Thành viên chính thức
Posts: 25
Joined: Fri 25/07/2008 2:38 pm
Has thanked: 2 times

Re: In File Ảnh(JPG and TIFF) trong VBA

Post by KIMNGUU »

Vậy là không có ai làm cái chức năng in ảnh như mình à?
trong câu hỏi về basecode64 mình cũng đề cập mà trong diễn đang không có ai làm như vậy sao?
User avatar
vietteiv
Quản trị
Quản trị
Posts: 1325
Joined: Sat 10/02/2007 12:17 am
Location: Cung cấp giải pháp quản lý doanh nghiệp, dự án, tư vấn xây dựng
Has thanked: 6 times
Been thanked: 70 times
Contact:

Re: In File Ảnh(JPG and TIFF) trong VBA

Post by vietteiv »

có thể là chưa...
trong trường hợp này thì bạn tự nghiên cứu tiếp hoặc đợi câu trả lời của thành viên nào đó đã làm qua
KIMNGUU
Thành viên chính thức
Thành viên chính thức
Posts: 25
Joined: Fri 25/07/2008 2:38 pm
Has thanked: 2 times

Re: In File Ảnh(JPG and TIFF) trong VBA

Post by KIMNGUU »

vietteiv wrote:có thể là chưa...
trong trường hợp này thì bạn tự nghiên cứu tiếp hoặc đợi câu trả lời của thành viên nào đó đã làm qua
Vậy các BÁC cho em hỏi tý nha!
Các bác có thể giúp em setup bằng code để "IN" uerform với kích thước chuẩn A4 được không ah?
Vì em dùng load ảnh đó lên form rồi.
Post Reply

Return to “Visual Basic for Application (VBA)”