Количество экземпляров для печати VBA

@Braser · Регистрация: 16.03.2013

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

Здравствуйте, подскажите пожалуйста, можно ли указать количество экземпляров при печатании отчета командой из VBA ?
У меня печать маркировочных этикеток реализована командой по нажатию кнопки в форме:

Visual Basic

1	DoCmd.OpenReport "ЭтикеткаXPno", acViewNormal

В этом случае принтер печатает только 1 наклейку, этикетку. А если мне нужно их 10 одинаковых, нужно 10 раз жать кнопку на форме, что не очень удобно. Допустим если ввести в форму поле Me.Qty., которое будет отвечать за количество распечатываемых экземпляров, как нужно в коде это указать и где? Если допустим поле пустое, по умолчанию выходит 1 этикетка если же указано, соответственно выходит заданное количество. Спасибо.

@Capi · 18.12.2018, 10:29

Braser,

Самый примитивный способ - сделать в цикле:

Visual Basic

1
2
3

For i = 1 To Qty
   DoCmd.OpenReport "ЭтикеткаXPno", acViewNormal 
Next

@Braser · 18.12.2018, 10:33 **[ТС]**

Сообщение от Capi

Самый примитивный способ - сделать в цикле

Честно говоря, я вряд ли справлюсь с задачей на основе такого краткого пояснения

@Capi · 18.12.2018, 10:40

Braser,

То есть?
Код ведь дан.
Вы разве его не видите?

@Braser · 18.12.2018, 10:51 **[ТС]**

Цикл вставил, работает. Спасибо. Единственное что не очень удобно, окно сообщения о печати торчит пока все экземпляры не распечатаются

Добавлено через 1 минуту
Вот

Visual Basic

Private Sub Кнопка1_Click()
Application.Printer = Application.Printers("Xprinter XP-360B")
 
For i = 1 To Nz(Qty, 1)
   DoCmd.OpenReport "ЭтикеткаXPno", acViewNormal
Next
 
End Sub

Добавлено через 7 минут
Спасибо, все работает

@Eugene-LS · 18.12.2018, 14:20

Сообщение от Braser

подскажите пожалуйста, можно ли указать количество экземпляров при печатании отчета командой из VBA ?

Когда-то имел написать такое:

Visual Basic

Dim intPgStart As Integer 'Нач страница
Dim intPgEnd As Integer   'Конечная страница
Dim intCop As Integer     'Кол-во копий
    
    intPgStart = 1
    intPgEnd = 3
    intCop = 2
    
'Печатаем с 1-й по 3-ю страницу отчета в 2-х экземп-х ...
    DoCmd.OpenReport "ОтчетПродаж", acPreview, , , acHidden
    DoCmd.PrintOut acPages, intPgStart, intPgEnd, , intCop, False
    DoCmd.Close acReport, "ОтчетПродаж"

смотрите на DoCmd.PrintOut

@Kiriver · 18.12.2018, 19:06

Сообщение от Eugene-LS

Когда-то имел написать такое:

а как сделать, чтобы количество копий запрашивалось?

@Eugene-LS · 18.12.2018, 19:15

Сообщение от Kiriver

а как сделать, чтобы количество копий запрашивалось?

Ну можно так:
Запрос данных от Пользователя:
Выводит окно для ввода данных пользователем, со значением по умолчанию = 0

Visual Basic

Dim val As Variant
Dim Message  As String, Title  As String, Default As String
    Message = "Ввведите количество копий "
    Title = "Запрос данных"
    Default = 1 'Значение по умолчанию
    val = InputBox(Message, Title, Default)
    MsgBox "Пользователь ввел: " & val

@Braser 320 / 135 / 36 Регистрация: 16.03.2013 Сообщений: 1,437
	18.12.2018, 10:33 [ТС]	3
	Сообщение от Capi Самый примитивный способ - сделать в цикле Честно говоря, я вряд ли справлюсь с задачей на основе такого краткого пояснения 0

@Capi Модератор 6012 / 2840 / 693 Регистрация: 12.06.2016 Сообщений: 7,631
	18.12.2018, 10:40	4
	Braser, То есть? Код ведь дан. Вы разве его не видите? 1

@Kiriver 431 / 239 / 86 Регистрация: 09.04.2018 Сообщений: 1,023
	18.12.2018, 19:06	7
	Сообщение от Eugene-LS Когда-то имел написать такое: а как сделать, чтобы количество копий запрашивалось? 0

	18.12.2018, 19:15

Количество экземпляров для печати VBA

Решение