ReSQL.ru
     
powered by simpleCommunicator - 2.0.50     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проблема с выводом на печать
25 сообщений из 104, страница 1 из 5
  1  все
Проблема с выводом на печать
    #40043991
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
Добрый день!
Прикупила наша контора классный принтер, который может печатать с дух сторон, решил переделать базу, под двухстороннюю печать. Да не тут то было, печатает первый лист нормально, а второй переворачивает по ВЕРТИКАЛИ, а надо по ГОРИЗОНТАЛИ.
По сему нужна помощь гуру, код прилагаю

 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
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" нет, и ещё если я в нвстройках принтера делаю переворот п огоризонтали то тогда печатает, но надо сразу жёстко прописать, ибо - НАДО.
...
Рейтинг: 0 / 0
10.02.2021, 13:57
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044055
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
Wawan2005, если не реагирует, значит принтер по умолчанию другой.
...
Рейтинг: 0 / 0
10.02.2021, 15:36
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044063
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
alecko,

на печать отправляет, количество копий тоже реагирует, размер бумаги реагирует, а разварачивать не хочет, принтер "HP LaserJet Pro M428f-M429f UPD PS"
...
Рейтинг: 0 / 0
10.02.2021, 15:52
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044069
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
Пробовал ещё вот так:

 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
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"
То есть этот метод вообще не печатает-(
...
Рейтинг: 0 / 0
10.02.2021, 16:02
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044073
Eugene-LS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eugene-LS
Гость
Wawan2005
Пробовал ещё вот так:

Тут смотрели?
...
И по умолчанию тот принтер - точно ?
...
Рейтинг: 0 / 0
10.02.2021, 16:14
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044087
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
Eugene-LS,

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

И к стати тот кусок кода печати я выдернул из другой своей базы, там изумительно печатает, а в этой не хочет, проверил "Reference" все DLLшки одинаковые.
...
Рейтинг: 0 / 0
10.02.2021, 16:40
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044126
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
Wawan2005, vb PRDPHorizontal(?) acPRDPHorizontal
...
Рейтинг: 0 / 0
10.02.2021, 18:14
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044168
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
alecko,

ни так ни так не работает
...
Рейтинг: 0 / 0
10.02.2021, 20:01
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044192
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
Wawan2005, давненько не настраивал принтеры, посмотрел код, пример выбора ниже
Код: vbnet
1.
2.
 If prtDuplex = acPRDPVertical Then .Orientation = acPRORLandscape Else .Orientation = acPRORPortrait
.Duplex = prtDuplex
...
Рейтинг: 0 / 0
10.02.2021, 20:39
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044293
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
alecko,

Ругается не работает.
...
Рейтинг: 0 / 0
11.02.2021, 09:44
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044327
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
Ругается на ".Orientation ="
...
Рейтинг: 0 / 0
11.02.2021, 10:34
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044378
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
Wawan2005,
 
это ж пример - его нужно самостоятельно адаптировать к своей программев примере при
.Orientation = acPRORLandscape
использовалось
.Duplex = acPRDPVertical

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
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 листов печатать и дуплексом и в альбомной ориентации и из разных лотков, учитывается и поле для подшивки и пр.
...
Рейтинг: 0 / 0
11.02.2021, 11:56
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044421
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
alecko,

Попробовал.
 
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
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" может быть данный геморрой?

Попробовал:
Код: sql
1.
With Me.Form.Printer

не помогло
...
Рейтинг: 0 / 0
11.02.2021, 13:40
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044422
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
alecko,

И вот ещё не понятно почему форма "Пустая" может ещё в этом причина? или это так и должно быть?
...
Рейтинг: 0 / 0
11.02.2021, 13:44
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044428
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Wawan2005
Код: sql
1.
With Forms("Договор_ГСК_2х").Printer

отакота надо
...
Рейтинг: 0 / 0
11.02.2021, 13:49
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044432
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Панург
отакота надо
это же коллекция. объекты получаем либо по ключу (текстовый), либо по порядковому номеру

в целях повышения образованности - а кто такой будет этот Иван Фёдорович Крузенштерн Объект Forms (Access) ? (с)
...
Рейтинг: 0 / 0
11.02.2021, 13:56
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044463
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
Панург,

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

P.S.:
Код: vbnet
1.
.Orientation = acPRORLandscape   '  acPRORPortrait   acPRORLandscape


работает переворачивает страницу, остальное не хотит-(
...
Рейтинг: 0 / 0
11.02.2021, 15:17
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044474
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
Wawan2005, копии Вы в Docmd.PrintOut задаете
...
Рейтинг: 0 / 0
11.02.2021, 15:42
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044476
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
alecko,
Вот так

 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
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



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

 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
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

...
Рейтинг: 0 / 0
11.02.2021, 15:45
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044515
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
Попробовал на другой принтер (тоже поддерживает двустороннюю печать Canon IP7240), результат тот же-(
...
Рейтинг: 0 / 0
11.02.2021, 16:47
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044529
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
 
а так?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
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


или так?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
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 - были проблемы ,в том числе и с копиями, но что там было - не помню уже, однако копии печатал по первому способу, когда не удавалось отказаться от использования этой функции.
все настройки у меня для отчетов - формы не печатал, может у них какая-то особенность есть-типа печать формы из формы нельзя... тут не смогу помочь в эту тему не влезал.
...
Рейтинг: 0 / 0
11.02.2021, 17:20
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044548
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
alecko,

Количество копий печатает (теперь) но это не решило основную проблему ".Duplex = acPRDPHorizontal"
...
Рейтинг: 0 / 0
11.02.2021, 18:00
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044562
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
Wawan2005, да, забыл поправить
Код: vbnet
1.
.duplex=acPRDPVertical


у меня только такая версия.
...
Рейтинг: 0 / 0
11.02.2021, 18:23
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044647
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
alecko,

попробую в отчёт переделать, и на нём проверить, будет работать или нет, мож правда это на форме не работает
...
Рейтинг: 0 / 0
11.02.2021, 22:11
| Ответить | Цитировать | Написать  
Проблема с выводом на печать
    #40044719
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
Проверил в Отчёте, тоже самое.
Мож у Вас какие ещё библиотеки подцеплены, а у меня нет поэтому и не хочет?
Если не трудно свою киньте.
...
Рейтинг: 0 / 0
12.02.2021, 08:45
| Ответить | Цитировать | Написать  
25 сообщений из 104, страница 1 из 5
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проблема с выводом на печать
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=40044063&tid=1609582]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 54ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 1ms
others: 274ms
total:  432ms
созд. / загр.: 432ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]