|
Действия ...
|
19.01.2004, 15:54:12
|
|||
|---|---|---|---|
|
|||
Как прекрепит к кнопке принтер |
|||
|
|
|
19.01.2004, 16:40:32
|
|||
|---|---|---|---|
|
|||
Как прекрепит к кнопке принтер |
|||
|
|
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
19.01.2004, 15:35:12
|
|||
|---|---|---|---|
|
|||
Как прекрепит к кнопке принтер |
|||
|
#18+
EST DVA PRINTERA ODIN LASER DRUGOI MATRI4NII OT4ETI PE4ATAJUTSA NA LASER A ZAPOLNJAEMIE FORMI PE4ATAJUTSA NA MATRI4NOM, KAK ZDELAT KNOPKI NA RASPE4ATKU NA KAZDII OTDELNII PRINTER 1 LASERJET HP1100 2 EPSON LQ-570+ SPASIBO mOZET EST KAKIETO DRUGIE VARIANTI ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
19.01.2004, 15:43:44
|
|||
|---|---|---|---|
|
|||
Как прекрепит к кнопке принтер |
|||
|
#18+
Язык чуть не сломал, пока читал Не из России видать. Мне тоже интересно это. Так что подожду с тобой. Формы ты на лазерке шлепаешь, а отчеты на матрице. В Access XP что то новое добавили для работы с принтерами. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
19.01.2004, 15:51:10
|
|||
|---|---|---|---|
|
|||
Как прекрепит к кнопке принтер |
|||
|
#18+
начну с простого т1 стр.607 а теперь посложнее set application.printer=application.printers(ла-ла принтер) docmd.openreport "jhgjh" set application.printer=nothing ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
19.01.2004, 15:54:12
|
|||
|---|---|---|---|
Как прекрепит к кнопке принтер |
|||
|
#18+
Ну самое простое это для всех отчетов "Принтер по умолчанию" - матричный. А для тех которые для лазеринка - параметры печати - другой принтер - выбрать Лазерник. И все. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
19.01.2004, 16:05:46
|
|||
|---|---|---|---|
|
|||
Как прекрепит к кнопке принтер |
|||
|
#18+
DA IZ ESTONII JA :)) -------------------- PARAMETRI MENAJ ETO KONE4NO ZDOROVO :/ --------------------- KAK UZNAT TO4NO set application.printer=application.printers(ла-ла принтер) ла-ла принтер kak on dolzen bit zapisan ??? hplaserjet1100 kak eto posmotret ?? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
19.01.2004, 16:16:59
|
|||
|---|---|---|---|
|
|||
Как прекрепит к кнопке принтер |
|||
|
#18+
из справки Dim prtLoop As Printer For Each prtLoop In Application.Printers With prtLoop MsgBox "Device name: " & .DeviceName & vbCr _ & "Driver name: " & .DriverName & vbCr _ & "Port: " & .Port End With Next prtLoop используй prtLoop.DeviceName ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
19.01.2004, 16:25:11
|
|||
|---|---|---|---|
|
|||
Как прекрепит к кнопке принтер |
|||
|
#18+
Private Sub Command307_Click() On Error GoTo Err_Command307_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "Report2" set application.printer=application.printers(HP LaserJet 1100 on LPT1:) stLinkCriteria = "[номер]=" & Me![номер] DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.OpenReport stDocName, , , stLinkCriteria Exit_Command307_Click: Exit Sub Err_Command307_Click: MsgBox Err.Description Resume Exit_Command307_Click End Sub ------------------------ set application.printer=application.printers(HP LaserJet 1100 on LPT1:) 4to to tut ne verno ?? 4to podpravit ??? tam skobki ili kak ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
19.01.2004, 16:27:59
|
|||
|---|---|---|---|
|
|||
Как прекрепит к кнопке принтер |
|||
|
#18+
Mozet est icq tak leg4e objasnit budet ??? a to ja sovsem lamos ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
19.01.2004, 16:36:17
|
|||
|---|---|---|---|
|
|||
Как прекрепит к кнопке принтер |
|||
|
#18+
Set Application.Printer = Application.Printers("\\gater\HP LaserJet 4100 PCL 6") DoCmd.OpenReport "Клиенты" Set Application.Printer = Nothing ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
19.01.2004, 16:40:32
|
|||
|---|---|---|---|
Как прекрепит к кнопке принтер |
|||
|
#18+
Может, сначала версию Аксесса озвучить - легче будет... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
19.01.2004, 16:53:58
|
|||
|---|---|---|---|
|
|||
Как прекрепит к кнопке принтер |
|||
|
#18+
URRA VSE ZARABOTALO ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
17.11.2004, 00:49:48
|
|||
|---|---|---|---|
Как прекрепит к кнопке принтер |
|||
|
#18+
Столкнулся с аналогичной проблемой - один из отчетов нужно обязательно посылать на цветной принтер, не глядя какой выбран "по умолчанию" и поставить высокое качество печати (или как минимум установить это до нажатия Ctl+P, чтоб не путались). "Другой принтер" для этого отчета счел не лучшим решением, хотя и самым простым на первый взгляд. Потому испробовал способ, который предложил 19 янв 04, 16:36 Хам трамвайный... Set Application.Printer = Application.Printers("\\SEKR\hp deskjet 3420 series") посадил на событие открытия отчета Report_Open. ...и наступил на грабли. Если открывать БД с компа \\SEKR - то вылетает ошибка. Это отследил по On Error и при ошибке подсовываю повторно строку без имени компа. Кстати, сетевое имя компа воспринимается только ЗАГЛАВНЫМИ буквами. В принципе, все заработало. Однако остались сомнения, все ли так просто (или же наоборот, это глюк из за "кривой" настройки сети)? И нужно ли куда то втыкать Set Application.Printer = Nothing ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=45&mobile=1&tid=1670337]: |
0ms |
get settings: |
10ms |
get forum list: |
13ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
41ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
41ms |
get tp. blocked users: |
1ms |
| others: | 225ms |
| total: | 346ms |
| 0 / 0 |
