In File Ảnh(JPG and TIFF) trong VBA

[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

Code: [Select all] [Expand/Collapse]

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

GeSHi © Codebox Plus Extension

Code: [Select all] [Expand/Collapse]

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

GeSHi © Codebox Plus Extension

Nó vẫn không in được!
Cảm ơn các bác trước nha!

[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?

[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]

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.