Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
Топик располагается на нескольких страницах: Ctrl  назад   1 2 3 4 [5]      все
 Re: Проблема с выводом на печать  [new]
ROI
Member

Откуда: г. Тюмень
Сообщений: 2262
Wawan2005
DarkMan,

В том то и фишка, пользовать программу будут дикие юзвери, и чем меньше у них возможности накосячат тем лучше, а косячат они профессионально, в следствии чего я и хочу прописывать настройки прямо в приложении, а в идеале тупо жёстко прописать, без права выбора, ибо нех.

Да, не забудьте, что есть разница в доступе к настройкам локального и сетевого принтера
21 июл 21, 06:28    [22349185]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 465
ROI,

Настройка проходит пока на локальном, Canon iP7240, всё равно не работает.
21 июл 21, 15:12    [22349414]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 465
Подскажите пожалуйста как адаптировать данный пример под дуплек

https://docs.microsoft.com/ru-ru/office/vba/api/access.form.prtdevmode
Свойство Printer.Duplex (Доступ)
23.03.2019
Чтение занимает 2 мин

Возвращает или задает констант AcPrintDuplex, указывающее, как указанный принтер обрабатывает двуплексную печать. Для чтения и записи.

Синтаксис
выражения. Duplex

выражение Переменная, представляюная объект Принтер.

Пример
В следующем примере заданы различные параметры принтера для формы, указанной в аргументе strFormname процедуры.


Sub SetPrinter(strFormname As String) 
 
 DoCmd.OpenForm FormName:=strFormname, view:=acDesign, _ 
 datamode:=acFormEdit, windowmode:=acHidden 
 
 With Forms(form1).Printer 
 
 .TopMargin = 1440 
 .BottomMargin = 1440 
 .LeftMargin = 1440 
 .RightMargin = 1440 
 
 .ColumnSpacing = 360 
 .RowSpacing = 360 
 
 .ColorMode = acPRCMColor 
 .DataOnly = False 
 .DefaultSize = False 
 .ItemSizeHeight = 2880 
 .ItemSizeWidth = 2880 
 .ItemLayout = acPRVerticalColumnLayout 
 .ItemsAcross = 6 
 
 .Copies = 1 
 .Orientation = acPRORLandscape 
 .Duplex = acPRDPVertical 
 .PaperBin = acPRBNAuto 
 .PaperSize = acPRPSLetter 
 .PrintQuality = acPRPQMedium 
 
 End With 
 
 DoCmd.Close objecttype:=acForm, objectname:=strFormname, _ 
 Save:=acSaveYes 
 
 
End Sub
21 июл 21, 16:29    [22349467]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
FeelYou
Member

Откуда: Москва
Сообщений: 18
Wawan2005,

Dim CurrRep As Report
On Error Resume Next
Set CurrRep = Screen.ActiveReport
If Err.Number = 0 Then
   If Left$(CurrRep.Printer.DeviceName, 3) <> "PDF" Then
      Select Case CurrRep.Name
         Case "ФАКТУРА", "НАКЛАДНАЯ" ' и тп с ландшафтной ориентацией
            CurrRep.Printer.Duplex = acPRDPHorizontal ' 2 Double-sided printing using a horizontal page turn
         Case Else
            CurrRep.Printer.Duplex = acPRDPVertical ' 3 Double-sided printing using a vertical page turn
      End Select
   End If
   'DoCmd.OpenReport CurrRep.Name, acViewNormal
Else
   ' смена настроек доступна только для отчетов
End If


и еще было припоминаю, что на МФУ HP M426 если настройки дуплекса заданы через вэб-морду сетевого принтера, то на программное изменение на терминальном клиенте не реагировало (2008R2 + A2003 если что)
8 окт 21, 14:11    [22381218]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: Ctrl  назад   1 2 3 4 [5]      все
Все форумы / Microsoft Access Ответить