Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.81/21: Рейтинг темы: голосов - 21, средняя оценка - 4.81
1 / 1 / 0
Регистрация: 30.07.2011
Сообщений: 65
1

Изменить принтер при печати

15.06.2012, 17:06. Показов 3978. Ответов 12
Метки нет (Все метки)

Добрый день. Помогите пожалуйста. Не как не могу найти решение, весь форум облазил. Нужно чтобы при нажатии кнопки распечатался отчет на виртуальном принтере автоматически. И при этом не менялся принтер по умолчанию.
Заранее спасибо.!
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.06.2012, 17:06
Ответы с готовыми решениями:

Принтер hp laserjet 1200 изменить плотность печати
Есть принтер hp 1200 laser, при печати тестовой страницы выводит настройку print density = 3 , а...

Стучит принтер при запуске и печати
Переодические "счелчки" видимо при обороте.... где то в области я так пологаю печки. Принтер HP...

Принтер долго думает при печати
Форумчане, доброго времени суток! Нужна помощь. Описание ситуации: Офис. В офисе часть машин под...

Принтер HP LaserJet p2055d затруднение при печати
Здравствуйте! Помогите, пожалуйста!! Купили принтер HP LaserJet P2055d. Возникли следующие проблемы...

12
1300 / 402 / 22
Регистрация: 21.10.2011
Сообщений: 1,285
15.06.2012, 17:17 2
Tigran,
а из какой программы надо печатать: Excel, PowerPoint или другой?
0
призрак
3261 / 888 / 119
Регистрация: 11.05.2012
Сообщений: 1,702
Записей в блоге: 2
15.06.2012, 17:18 3
из какого приложения?
0
1 / 1 / 0
Регистрация: 30.07.2011
Сообщений: 65
15.06.2012, 17:38  [ТС] 4
из access, надо чтобы при печати определенного отчета менялся принтер.
0
2774 / 708 / 104
Регистрация: 04.02.2011
Сообщений: 1,432
15.06.2012, 17:43 5
В Excel примерно так:
Visual Basic
1
2
3
4
5
6
Dim s As String
s = Application.ActivePrinter
' Имя моего виртуального принтера - заменить на Ваш виртуальный принтер
Application.ActivePrinter = "Microsoft XPS Document Writer (Ne03:)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.ActivePrinter = s
Здесь в моем случае вроде нельзя указать в макросе адрес сохранения файла виртуальной печати.
0
1 / 1 / 0
Регистрация: 30.07.2011
Сообщений: 65
15.06.2012, 17:48  [ТС] 6
На строчке
Visual Basic
1
s = Application.ActivePrinter
выдает "method or data member not found"

С чем это может быть связано?
0
1300 / 402 / 22
Регистрация: 21.10.2011
Сообщений: 1,285
15.06.2012, 17:53 7
Tigran,
а как вообще код выглядит, который печатает отчёт в Access?
0
1 / 1 / 0
Регистрация: 30.07.2011
Сообщений: 65
15.06.2012, 17:59  [ТС] 8
Там выгладить не чему, я просто на на кнопку при нажатии кинул это код и все.
0
1300 / 402 / 22
Регистрация: 21.10.2011
Сообщений: 1,285
15.06.2012, 18:00 9
Tigran,
а что за код кинули на кнопку?
0
1 / 1 / 0
Регистрация: 30.07.2011
Сообщений: 65
15.06.2012, 18:04  [ТС] 10
Visual Basic
1
2
3
4
5
6
Dim s As String
s = Application.ActivePrinter
' Имя моего виртуального принтера - заменить на Ваш виртуальный принтер
Application.ActivePrinter = "Microsoft XPS Document Writer (Ne03:)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.ActivePrinter = s
Блин запутался, не у видел что этот код для Excel
0
1300 / 402 / 22
Регистрация: 21.10.2011
Сообщений: 1,285
15.06.2012, 18:07 11
Tigran,
это вам код скинули для Excel. В разных программах MS Office разные ситуации.
Я имею ввиду, как вы с помощью VBA вообще печатаете.
У вас же проблема именно с принтером по умолчанию.
0
2774 / 708 / 104
Регистрация: 04.02.2011
Сообщений: 1,432
15.06.2012, 18:07 12
Это различия между Excel и Access (ничего общего в этом вопросе).
У меня есть подозрение, что каждый отдельный отчет в Access умеет сохранять свои настройки печати, в том числе и выбранный принтер. Может я ошибаюсь. Советую посмотреть статью во встроенной справке (Access 2007) How to: Work with Form and Report Printer Settings (найти в справке по ключевому слову Printer) Там же и примеры кода по работе с принтером. Я бы использовал свойство
rpt.Printer.DeviceName, где rpt - объект отчета.
0
1 / 1 / 0
Регистрация: 30.07.2011
Сообщений: 65
15.06.2012, 18:11  [ТС] 13
Дело в том что печатается один и тот же объект. Надо чтобы от условии, печаталось ил на одном принтере или на другом!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2012, 18:11

Лазерный принтер .Полосы при печати изображений
Пожалуйста объясните проблему лазерного принтера HP LaserJet 1320N. При печати изображений стал...

Принтер Canon сдвигается текст при печати
Принтер Canon долго стоял (около года пылился), решили начать пользоваться. Старые картриджи...

Принтер Canon MG4140, глюки при печати
Доброго времени суток. Проблема у меня с принтером Canon MG4140. Печатает он со скоростью...

При двусторонней печати принтер Epson L800 зависает
Здравствуйте. Если использую двустороннюю печать в настройках печати принтера L800 и запускаю...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.