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

@Tigran · Регистрация: 30.07.2011

Студворк — интернет-сервис помощи студентам

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

@Busine2012 · 15.06.2012, 17:17

Tigran,
а из какой программы надо печатать: Excel, PowerPoint или другой?

@ikki · 15.06.2012, 17:18

из какого приложения?

@Tigran · 15.06.2012, 17:38 **[ТС]**

из access, надо чтобы при печати определенного отчета менялся принтер.

@mc-black · 15.06.2012, 17:43

В 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

Здесь в моем случае вроде нельзя указать в макросе адрес сохранения файла виртуальной печати.

@Tigran · 15.06.2012, 17:48 **[ТС]**

На строчке

Visual Basic
1
s = Application.ActivePrinter

выдает "method or data member not found"

С чем это может быть связано?

@Busine2012 · 15.06.2012, 17:53

Tigran,
а как вообще код выглядит, который печатает отчёт в Access?

@Tigran · 15.06.2012, 17:59 **[ТС]**

Там выгладить не чему, я просто на на кнопку при нажатии кинул это код и все.

@Busine2012 · 15.06.2012, 18:00

Tigran,
а что за код кинули на кнопку?

@Tigran · 15.06.2012, 18:04 **[ТС]**

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

@Busine2012 · 15.06.2012, 18:07

Tigran,
это вам код скинули для Excel. В разных программах MS Office разные ситуации.
Я имею ввиду, как вы с помощью VBA вообще печатаете.
У вас же проблема именно с принтером по умолчанию.

@mc-black · 15.06.2012, 18:07

Это различия между Excel и Access (ничего общего в этом вопросе).
У меня есть подозрение, что каждый отдельный отчет в Access умеет сохранять свои настройки печати, в том числе и выбранный принтер. Может я ошибаюсь. Советую посмотреть статью во встроенной справке (Access 2007) How to: Work with Form and Report Printer Settings (найти в справке по ключевому слову Printer) Там же и примеры кода по работе с принтером. Я бы использовал свойство
rpt.Printer.DeviceName, где rpt - объект отчета.

@Tigran · 15.06.2012, 18:11 **[ТС]**

Дело в том что печатается один и тот же объект. Надо чтобы от условии, печаталось ил на одном принтере или на другом!

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Tigran 1 / 1 / 0 Регистрация: 30.07.2011 Сообщений: 65

	Изменить принтер при печати 15.06.2012, 17:06. Показов 5013. Ответов 12 Метки нет (Все метки) Добрый день. Помогите пожалуйста. Не как не могу найти решение, весь форум облазил. Нужно чтобы при нажатии кнопки распечатался отчет на виртуальном принтере автоматически. И при этом не менялся принтер по умолчанию. Заранее спасибо.! 0

@Busine2012 1302 / 404 / 22 Регистрация: 21.10.2011 Сообщений: 1,285
	15.06.2012, 17:17
	Tigran, а из какой программы надо печатать: Excel, PowerPoint или другой? 0

@ikki призрак 3266 / 894 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	15.06.2012, 17:18
	из какого приложения? 0

@Tigran 1 / 1 / 0 Регистрация: 30.07.2011 Сообщений: 65
	15.06.2012, 17:38 [ТС]
	из access, надо чтобы при печати определенного отчета менялся принтер. 0

@Busine2012 1302 / 404 / 22 Регистрация: 21.10.2011 Сообщений: 1,285
	15.06.2012, 17:53
	Tigran, а как вообще код выглядит, который печатает отчёт в Access? 0

@Tigran 1 / 1 / 0 Регистрация: 30.07.2011 Сообщений: 65
	15.06.2012, 17:59 [ТС]
	Там выгладить не чему, я просто на на кнопку при нажатии кинул это код и все. 0

@Busine2012 1302 / 404 / 22 Регистрация: 21.10.2011 Сообщений: 1,285
	15.06.2012, 18:00
	Tigran, а что за код кинули на кнопку? 0

@Busine2012 1302 / 404 / 22 Регистрация: 21.10.2011 Сообщений: 1,285
	15.06.2012, 18:07
	Tigran, это вам код скинули для Excel. В разных программах MS Office разные ситуации. Я имею ввиду, как вы с помощью VBA вообще печатаете. У вас же проблема именно с принтером по умолчанию. 0

@mc-black 2786 / 718 / 106 Регистрация: 04.02.2011 Сообщений: 1,443
	15.06.2012, 18:07
	Это различия между Excel и Access (ничего общего в этом вопросе). У меня есть подозрение, что каждый отдельный отчет в Access умеет сохранять свои настройки печати, в том числе и выбранный принтер. Может я ошибаюсь. Советую посмотреть статью во встроенной справке (Access 2007) How to: Work with Form and Report Printer Settings (найти в справке по ключевому слову Printer) Там же и примеры кода по работе с принтером. Я бы использовал свойство rpt.Printer.DeviceName, где rpt - объект отчета. 0

@Tigran 1 / 1 / 0 Регистрация: 30.07.2011 Сообщений: 65
	15.06.2012, 18:11 [ТС]
	Дело в том что печатается один и тот же объект. Надо чтобы от условии, печаталось ил на одном принтере или на другом! 0