как программно распечатать файл?

[milla]

Добрый день! Делаю программу по преобразованию данных из некоторого Excel-файла в файл *.apl(открывается через Блокнот) на VBA. Необходимо после преобразования распечатать на принтере этот выходной файл apl. Подскажите пожалуйста, как это можно сделать? Нашла вариант через ShellExecute (shell32.dll), но Win7 x-64 ругается, говорит надо адаптировать код для 64-битной системы. вот код:

Код: Выделить всё

Private Declare Function ShellExecute _
        Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hWnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long

Private Sub WinAPI_PrintTextFile()
    ShellExecute 0&, "Print", NameAPLFile, vbNullString, vbNullString, 0&
   
End Sub

[Template]

Код: Выделить всё

Private Declare PtrSafe Function ShellExecute _
        Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As LongPtr, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As LongPtr

[milla]

Спасибо преогромное!!!!

[milla]

Возник еще такой вопрос: а как вызвать диалоговое окно печати - если, например, нужно выбрать принтер из нескольких?

[Template]

Код: Выделить всё

Application.Dialogs(xlDialogPrint).Show

[milla]

это я сообразила) но это для печати данных из excel... а чтобы распечатать мой apl(=txt)? стандартное диалоговое окно печати для Windows можно вызвать?

[ger_kar]

Можно, с помощью WinApi функций библиотеки comdlg32.dll, например

Код: Выделить всё

Private Type PRINTDLG
   lStructSize As Long
   hwndOwner As Long
   hDevMode As Long
   hDevNames As Long
   hdc As Long
   flags As Long
   nFromPage As Integer
   nToPage As Integer
   nMinPage As Integer
   nMaxPage As Integer
   nCopies As Integer
   hInstance As Long
   lCustData As Long
   lpfnPrintHook As Long
   lpfnSetupHook As Long
   lpPrintTemplateName As String
   lpSetupTemplateName As String
   hPrintTemplate As Long
   hSetupTemplate As Long
End Type

Declare Function PrintDlg Lib "comdlg32.dll" Alias "PrintDlgA" (ByRef pPrintdlg As PRINTDLG) As Long



Можешь почитать ЭТУ ТЕМУ

[milla]

ок, спасибо!

[Qwertiy]

Для информации:

Код: Выделить всё

%SystemRoot%\system32\NOTEPAD.EXE /p %1

[ger_kar]

И что диалог откроется? Он же вроде просто сразу на печать отправляет без настроек.

[milla]

Обошлась без диалога, только вот проблема такая - SellExecute не хочет печатать APL в чистом виде - говорит, что не может найти подходящую программу для его открытия. Если файл переименовать в txt то все работает, но потом мне надо переименовать его обратно в apl. Как дождаться окончания печати(=запуска ShellExecute)? Или назначить ShellExecute программу для открытия файла?

[ger_kar]

Можно же просто сделать например так:
Shell ("NOTEPAD.EXE /p D:\Мои документы\Рабочий стол\Log2.apl")

[milla]

ger_kar, спасибо еще раз, это именно то, что нужно! и работает так, как нужно!

[ger_kar]

Ну практически то же самое советовал Qwertiy постом повыше, а это практически тоже самое, только под несколько другим углом .