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

Откуда: Волгоград
Сообщений: 466
Добрый день!
Прикупила наша контора классный принтер, который может печатать с дух сторон, решил переделать базу, под двухстороннюю печать. Да не тут то было, печатает первый лист нормально, а второй переворачивает по ВЕРТИКАЛИ, а надо по ГОРИЗОНТАЛИ.
По сему нужна помощь гуру, код прилагаю

+
Private Sub Кн_Печать_1_Click()
 With Forms(Договор_ГСК_2х).Printer
 .Copies = 2
 .Orientation = acPRORLandscape
 .Duplex = vbPRDPHorizontal
 .PaperBin = acPRBNAuto
 .PaperSize = acPRPSA4
 .PrintQuality = acPRPQMedium
 End With
     DoCmd.PrintOut acPages, 1, 2, acHigh, , True
End Sub


P.S.: Причём на ".Copies = 2" реагирует, а на основное из за чего вся заморока ".Duplex = vbPRDPHorizontal" нет, и ещё если я в нвстройках принтера делаю переворот п огоризонтали то тогда печатает, но надо сразу жёстко прописать, ибо - НАДО.

Сообщение было отредактировано: 10 фев 21, 13:54
10 фев 21, 13:57    [22278820]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
alecko
Member

Откуда: Башкирия
Сообщений: 849
Wawan2005, если не реагирует, значит принтер по умолчанию другой.
10 фев 21, 15:36    [22278926]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Wawan2005
Member

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

на печать отправляет, количество копий тоже реагирует, размер бумаги реагирует, а разварачивать не хочет, принтер "HP LaserJet Pro M428f-M429f UPD PS"
10 фев 21, 15:52    [22278938]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
Пробовал ещё вот так:

+
Private Sub Кн_Печать_1_Click()
 DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Dim stDocName As String
    stDocName = "Договор_ГСК_2х"
    DoCmd.OpenReport stDocName, acNormal, Printer.Duplex = 2
    DoCmd.PrintOut acPages, 1, 2, acHigh, 1, True
End Sub

ругается на "DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70", если выкидываю эту строчку то ругается на "DoCmd.OpenReport stDocName, acNormal ', Printer.Duplex = 2"
То есть этот метод вообще не печатает-(

Сообщение было отредактировано: 10 фев 21, 15:56
10 фев 21, 16:02    [22278952]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Eugene-LS
Member

Откуда: РФ
Сообщений: 63
Wawan2005
Пробовал ещё вот так:

Тут смотрели?
...
И по умолчанию тот принтер - точно?
10 фев 21, 16:14    [22278962]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
Eugene-LS,

Смотрел, но ничего там не понял, там зачем то считают количество страниц и т.д., а по поводу принтера у меня в коде прописано Me.Printer - то принтер по умолчанию, как я понимаю.

И к стати тот кусок кода печати я выдернул из другой своей базы, там изумительно печатает, а в этой не хочет, проверил "Reference" все DLLшки одинаковые.

Сообщение было отредактировано: 10 фев 21, 16:35
10 фев 21, 16:40    [22278983]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
alecko
Member

Откуда: Башкирия
Сообщений: 849
Wawan2005, vbPRDPHorizontal(?) acPRDPHorizontal
10 фев 21, 18:14    [22279049]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Wawan2005
Member

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

ни так ни так не работает
10 фев 21, 20:01    [22279113]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
alecko
Member

Откуда: Башкирия
Сообщений: 849
Wawan2005, давненько не настраивал принтеры, посмотрел код, пример выбора ниже
 If prtDuplex = acPRDPVertical Then .Orientation = acPRORLandscape Else .Orientation = acPRORPortrait
.Duplex = prtDuplex
10 фев 21, 20:39    [22279145]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Wawan2005
Member

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

Ругается не работает.
11 фев 21, 09:44    [22279305]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
Ругается на ".Orientation ="
11 фев 21, 10:34    [22279346]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
alecko
Member

Откуда: Башкирия
Сообщений: 849
Wawan2005,
+ это ж пример - его нужно самостоятельно адаптировать к своей программе
в примере при
.Orientation = acPRORLandscape
использовалось
.Duplex = acPRDPVertical

Private Sub Кн_Печать_1_Click()
 With Forms(Договор_ГСК_2х).Printer
 .Copies = 2
 .Orientation = acPRORLandscape
 .Duplex = acPRDPVertical ' предполагалось что поменяете здесь
 .PaperBin = acPRBNAuto
 .PaperSize = acPRPSA4
 .PrintQuality = acPRPQMedium
 End With
     DoCmd.PrintOut acPages, 1, 2, acHigh, , True
End Sub

у меня там программа универсальная - приходилось в одной пачке из 250 листов печатать и дуплексом и в альбомной ориентации и из разных лотков, учитывается и поле для подшивки и пр.
11 фев 21, 11:56    [22279415]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Wawan2005
Member

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

Попробовал.
+
Private Sub Кн_Печать_1_Click()
 With Forms(Договор_ГСК_2х).Printer
 .Copies = 2                           ''К стати это тоже перестало работать, печатает по одной копии
 .Orientation = acPRORLandscape
 .Duplex = acPRDPHorizontal            ''acPRDPVertical  предполагалось что поменяете здесь поменял и туда и суда, не помогло
 .PaperBin = acPRBNAuto
 .PaperSize = acPRPSA4
 .PrintQuality = acPRPQMedium
 End With
     DoCmd.PrintOut acPages, 1, 2, acHigh, , True
End Sub


Такое ощущение, что на With вообще не реагирует -(
А из-за принтера "HP LaserJet Pro M428f-M429f UPD PS" может быть данный геморрой?

Попробовал:
With Me.Form.Printer
не помогло
11 фев 21, 13:40    [22279476]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Wawan2005
Member

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

И вот ещё не понятно почему форма "Пустая" может ещё в этом причина? или это так и должно быть?

К сообщению приложен файл. Размер - 40Kb
11 фев 21, 13:44    [22279477]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 5361
Wawan2005
With Forms("Договор_ГСК_2х").Printer
отакота надо
11 фев 21, 13:49    [22279485]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 5361
Панург
отакота надо
это же коллекция. объекты получаем либо по ключу (текстовый), либо по порядковому номеру

в целях повышения образованности - а кто такой будет этот Иван Фёдорович Крузенштерн Объект Forms (Access)? (с)
11 фев 21, 13:56    [22279489]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Wawan2005
Member

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

Ковычки поставил, показывать "Empty" перестало, но всё равно на копии и дуплекс не реагирует

P.S.:
.Orientation = acPRORLandscape   '  acPRORPortrait   acPRORLandscape 

работает переворачивает страницу, остальное не хотит-(
11 фев 21, 15:17    [22279534]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
alecko
Member

Откуда: Башкирия
Сообщений: 849
Wawan2005, копии Вы в Docmd.PrintOut задаете
11 фев 21, 15:42    [22279552]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Wawan2005
Member

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

+
Private Sub Кн_Печать_1_Click()

 With Forms("Договор_ГСК_2х").Printer
 .Copies = 2
 .Orientation = acPRORLandscape   '  acPRORPortrait   acPRORLandscape
 .PrintQuality = acPRPQMedium
 .PaperBin = acPRBNAuto
 .PaperSize = acPRPSA4
 .Duplex = acPRDPHorizontal  ' acPRDPHorizontal  acPRDPVertical

 End With
     
     DoCmd.PrintOut ' acPages, 1, 2, acHigh, , True

End Sub


и вот так пробовал

+
Private Sub Кн_Печать_1_Click()

 With Forms("Договор_ГСК_2х").Printer
 .Copies = 2
 .Orientation = acPRORLandscape   '  acPRORPortrait   acPRORLandscape
 .PrintQuality = acPRPQMedium
 .PaperBin = acPRBNAuto
 .PaperSize = acPRPSA4
 .Duplex = acPRDPHorizontal  ' acPRDPHorizontal  acPRDPVertical

 End With
     
     DoCmd.PrintOut acPages, 1, 2, acHigh, , True

End Sub
11 фев 21, 15:45    [22279555]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
Попробовал на другой принтер (тоже поддерживает двустороннюю печать Canon IP7240), результат тот же-(
11 фев 21, 16:47    [22279604]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
alecko
Member

Откуда: Башкирия
Сообщений: 849
+ а так?

Private Sub Кн_Печать_1_Click()
dim i as long
 With Me.Printer
 .Orientation =acPRORPortrait
 .PrintQuality = acPRPQMedium
 .Duplex = acPRDPHorizontal 
 End With
    for i=1 to 2 
     DoCmd.PrintOut acPrintAll
next i
End Sub

или так?
Private Sub Кн_Печать_1_Click()
const i as long=2
 With Me.Printer
 .Orientation =acPRORPortrait
 .PrintQuality = acPRPQMedium
 .Duplex = acPRDPHorizontal 
 End With
     DoCmd.PrintOut acPrintAll, , , , i
End Sub

с docmd.Printout - были проблемы ,в том числе и с копиями, но что там было - не помню уже, однако копии печатал по первому способу, когда не удавалось отказаться от использования этой функции.
все настройки у меня для отчетов - формы не печатал, может у них какая-то особенность есть-типа печать формы из формы нельзя... тут не смогу помочь в эту тему не влезал.
11 фев 21, 17:20    [22279619]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Wawan2005
Member

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

Количество копий печатает (теперь) но это не решило основную проблему ".Duplex = acPRDPHorizontal"
11 фев 21, 18:00    [22279644]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
alecko
Member

Откуда: Башкирия
Сообщений: 849
Wawan2005, да, забыл поправить
.duplex=acPRDPVertical 

у меня только такая версия.
11 фев 21, 18:23    [22279664]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Wawan2005
Member

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

попробую в отчёт переделать, и на нём проверить, будет работать или нет, мож правда это на форме не работает
11 фев 21, 22:11    [22279764]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с выводом на печать  [new]
Wawan2005
Member

Откуда: Волгоград
Сообщений: 466
Проверил в Отчёте, тоже самое.
Мож у Вас какие ещё библиотеки подцеплены, а у меня нет поэтому и не хочет?
Если не трудно свою киньте.

К сообщению приложен файл. Размер - 66Kb
12 фев 21, 08:45    [22279861]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: [1] 2 3 4 5   вперед  Ctrl      все
Все форумы / Microsoft Access Ответить