Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Два принт...

Тема: Два принтера

15.06.2007 21:08:24

All

4316 сообщения

Тема: Два принтера

Здравствуйте.
К моему компьютеру подключены 2 принтера - лазерный (используется по умолчанию) и струйный.
Большинство отчетов печатаются через лазерный, но один отчет нужно выводить через струйный. Возможно-ли чтобы этот отчет автоматически выводился на него?

P.S. Использование принтера
Автор: Дмитрий от 0:00:00 Источник ...

15.06.2007 21:08:24

All

4316 сообщения

RE: Два принтера

http://www.mvps.org/access/reports/rpt0009.htm

P.S. Использование принтера
Автор: Алекс от 0:00:00 Источник ...

15.06.2007 21:08:24

MarkP

1 сообщения

RE: Два принтера

От:MarkP (mark@NOJUNKvoicenet.co.nz)

Declare Function GetProfileString Lib "kernel32" Alias
"GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As
String, ByVal lpDefault As String, ByVal lpReturnedString As String,
ByVal nSize As Long) As Long

Declare Function GetProfileSection Lib "kernel32" Alias
"GetProfileSectionA" (ByVal lpAppName As String, ByVal
lpReturnedString As String, ByVal nSize As Long) As Long

Declare Function WriteProfileSection Lib "kernel32" Alias
"WriteProfileSectionA" (ByVal lpAppName As String, ByVal lpString As
String) As Long

Declare Function WriteProfileString Lib "kernel32" Alias
"WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName
As String, ByVal lpszString As String) As Long

Public Function GetDefaultPrinter() As String
'Initialise the return string
Dim lpReturnedString As String
lpReturnedString = String(100, " ")

'Get the default printer from the win.ini file, application name =
[windows], key name = device
Call GetProfileString("windows", "device", "", lpReturnedString,
Len(lpReturnedString))
GetDefaultPrinter = lpReturnedString

End Function

Public Function SetDefaultPrinter(lpszString As Variant) As Boolean
'Check for empty string or Null
If Nz(lpszString, "") = "" Then
SetDefaultPrinter = False
Exit Function
End If

'Set the default printer in the win.ini file, application name =
[windows], key name = device
Call WriteProfileString("windows", "device", lpszString)
SetDefaultPrinter = True

End Function

P.S. Использование принтера
Автор: MarkP от 16.05.2004 9:22:53 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Два принт...

Поиск

Список форумов

Начало | Forums