| |
|
|
| | Всем доброго времени суток!
Вопрос такой: как напечатать отчет принтером, который не выставлен как по умолчанию? То есть по умолчанию стоит физический принтер, а нужно отправить на виртуальный.
Код отправки на печать:
DoCmd.OpenReport "ИмяОтчета", acViewNormal, , "[ПолеПоКоторомуПечатаетсяОтчет]='" & Me.ПолеПоКоторомуПечатаетсяОтчет.Value & "'", acNorma
|
| |
| |
| |
| |
|
|
| | 1. Открыть отчет на предпросмотр (можно скрыто)
2. Поменять отчету принтер
3. Отправить на печать.
4. Закрыть отчет | |
| |
| |
| |
|
|
| | Я в VBA новичек, если можно поподробнее. | |
| |
| |
| |
|
|
| |
Const DeviceName As String = "PrimoPDF"
Dim stDocName As String
stDocName = "rptReportMembers"
With DoCmd
.OpenReport stDocName, acViewPreview, , , acHidden
Reports(stDocName).Printer = Printers(DeviceName)
.PrintOut acPrintAll, , , , 1
.Close acReport, stDocName
End With
|
| |
| |
| |
| |
|
|
| | А куда мой фильтр вписывать? Это надо на процедуру вешать? | |
| |
| |
