Не знаю даже в какую тему писать, но вроде здесь люди самые эрудированные, в VB6 это точно без ответа останется.
Попробую по порядку. Например я хочу распечатать некий документ (неважно что jpg,txt,)
Немного теории.
Используется метод printto - неточно, зависит от реестра но наиболее универсально.
Примеры печати из приложения:
1. Запуск ShellExecute ("printto")
1.
2.
3.
4.
ShellExecute 0, "printto", _
Chr(34) & App.Path & "\test.jpg" & Chr(34), _
Chr(34) & "PrinterName" & Chr(34), _
"", SW_SHOWNORMAL
2. Зная стандартное приложение и подглядев ключи "printto" в реестре, можно обезопасить себя от случайного отсутствия ключа в реестре
Т.е. например для jpg,tif, bmp, png и т.п. графики стандартный метод такой:
1.
2.
3.
4.
5.
6.
7.
8.
9.
'графика
'rundll32.exe C:\WINDOWS\system32\shimgvw.dll,ImageView_PrintTo /pt "%1" "%2"<<< "%3" "%4"
'txt
'%SystemRoot%\system32\notepad.exe /pt "%1" "%2" "%3" "%4"
ShellExecute 0, "", "rundll32.exe", _
"shimgvw.dll,ImageView_PrintTo /pt " & _
Chr(34) & App.Path & "\test.jpg" & Chr(34) & " " & _
Chr(34) & "PrinterName" & Chr(34), _
"", SW_HIDE
2A. А если совсем культурно, нашаманив согласно статье
СВЕДЕНИЯ: интерфейс программ Windows Rundll и Rundll32 , то прямым вызовом API:
1.
2.
3.
4.
Public Declare Function ImageView_PrintTo Lib "shimgvw.dll" Alias "ImageView_PrintToA" _
(ByVal hwnd As Long, ByVal hinst As Long, ByVal lpszCmdLine As String, ByVal nCmdShow As Long) As Long
ImageView_PrintTo 0, 0, "/pt " & Chr(34) & App.Path & "\test.jpg" & " " & Chr(34) & "PrinterName" & Chr(34), 0
3. Именно "printto" используется например при добавлении задания в MS Fax
FaxDocument.ConnectedSubmit method
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub Main()
Dim g_objFaxServer As New FAXCOMEXLib.FaxServer
g_objFaxServer.Connect ("")
Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
'We can create outgoing job from any printable file format, no dialog boxes
objFaxDocument.Body = App.Path & "\test.jpg"
objFaxDocument.Recipients.Add "74951234567", "74951234567"
'Submit the document to the connected fax server
objFaxDocument.ConnectedSubmit g_objFaxServer
End Sub
Здесь файл произвольного формата (jpg) передается методу ConnectedSubmit, который осуществляет печать jpg через "printto", как я расписал выше на принтер "Fax".
==========================================
Теперь о проблеме.
1. Обнаружил на Win 8.1 x64 при запуске процедуры objFaxDocument.ConnectedSubmit под Local SYSTEM (режим AsService).
Дебаг показал что objFaxDocument.ConnectedSubmit намертво завис без всяких ошибок и код "застрял" (печать файла типа jpg).
2. В то же время я обнаружил, что "печать txt" (printto+notepad) проходит тем же кодом абсолютно нормально. Т.е. txt печатается и факс-задание добавляется (под System!!!)
3. Я начал рыться в ключах реестра, пытаться менять дефолтные приложения для jpg (shimgvw -стандартный просмотрщик, mspaint), сделал тестовое приложение. Ничего не помогает. Под юзером все OK, под SYSTEM -Ж.
Причем Ж и при прямом вызове
shimgvw.dll,ImageView_PrintTo /pt "%1" "%2"
А это тонкий намек на то что Extension-Associations не зависят от аккаунта.
!!! при этом печать txt через блокнот всегда работает.
4. Я даже скачал утилитку Русиновича и научился запускать тест-прогу под System:
psexec -s -i -d cmd.exe
Далее из cmd запускаем любой exe и смотрим чего происходит.
5. Далее я начитался топиков на форумах и там был дан совет кому-то в такой ситуации.
Запустить
psexec -s -i -d notepad.exe (под System)
, потом Печать,
и посмотреть все ли принтеры на месте.
Я проверил, на месте. И печатают.
Но с notepad и в автомате проблем нет.
6. И все-таки мне удалось высечь.
Я запустил
psexec -s -i -d myproga.exe (под System)
В myproga.exe у меня GUI и есть команды печати.
Так вот, она вообще не видит ни одного принтера.
Более того, из myproga.exe я вывел картинку через стандартный просмотрщик
rundll32 shimgvw.dll,ImageView_Fullscreen test.pict
И фотовьюер при попытке нажать в нем Print заявил буквально следующее:
Windows Photo Viewer can't print this picture because there is no
printer installed or a service Windows needs is not running.
Исходя из всего сказанного, выводы такие:
1. Часть приложений при запуске из-под System видят принтеры и способны печатать (например блокнот).
2. Другие приложения по какой-то причине не видят принтеры и отсюда проблемы.
Как лечить свое приложение чтоб оно видело принтеры?
Я конечно попытался добавить права для SYSTEM для принтера, но думаю это не то и не помогло.
'---
Я когда-то уже решал подобную похожую проблему. Хитро запущенное приложение не видело базу данных под x64.
Непонятки при доступе к объектам БД при запуске приложения VB6 "из под принтера".
ПРИЧИНАWhen exporting, RMS needs and looks for oledb32.dll, by default this is located in: C:\Program Files (x86)\Common Files\System\Ole DB\. However the location could be different from the default and when RMS searches for the dll it uses the system variable %CommonProgramFiles(x86)% to find this location.
There is a known issue in Windows Vista X64 and Windows 2008 X64 that when the CreateEnvironmentBlock function is called without inheriting environment variables from the current process, the returned environment block is missing the following environment variables: CommonProgramFiles(x86), CommonProgramW6432, ProgramFiles(x86), ProgramW6432.
This causes RMS to fail to find oledb32.dll and the export fails.
Решение
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Public Sub Fix_x64_Environment()
If Is64bit Then
Dim buf As String * 256
Dim varValue As String
Dim length As Long
' Get "CommonProgramFiles(x86)" Environment Variable.
length = GetEnvironmentVariable("CommonProgramFiles(x86)", buf, Len(buf))
varValue = Left$(buf, length)
If Len(varValue) = 0 Then
' Set "CommonProgramFiles(x86)" Environment Variable.
SetEnvironmentVariable "CommonProgramFiles(x86)", GetCommonProgramFilesX86Path
End If
End If
End Sub
И у меня ощущение, что под System проги также теряют какую-то Environment Variable и не видят принтеров.
И ее надо "восстанавливать" ручками.
Notepad -то видит!!!
Есть идеи?
