Печать ваучера из Excel

Мне нужна помощь при печати нескольких ваучеров от Excel.

На листе № 2 у меня есть следующие данные: в столбце A я поставил около 2000 дат (dd-mm-yyyy). У меня есть ваучер в колонке B (около 2000 ваучеров). В столбце C у меня есть различное описание в каждой ячейке. В столбце D у меня есть сумма ваучера. В графе F у меня есть имя человека, которому я плачу. Это может быть несколько клеток. В столбце H я упомянул причину платежа. Это также может быть несколько клеток, поскольку характер работы может быть общим.

В листе №1 у меня есть формат ваучера (размер A5)

Я хочу vba или метод для печати в прикрепленном PDF / или принтере, все вышеприведенные ваучер в формате в Листе № 1

Примеры данных:

В ячейке A1 -> 04 апреля 2017 г.

В ячейке B1 -> VCH0005

В ячейке C1 -> «Сумма, уплаченная за"

В ячейке D1 -> 500.00

В Cell F1 -> «Mr. John Doe»

В Cell H1 -> «для перевозки товаров из нашего офиса в какой-нибудь другой офис»

По щелчку кнопки вышеуказанные данные будут напечатаны в определенном формате, который разработан в формате Sheet1 A5 или A4.

Пожалуйста помоги. Заранее спасибо.

Этот код копирует и вставляет данные из рабочего листа два в рабочий лист один и сохраняет рабочий лист один как .pdf-файл. Он спросит вас, какое приложение вы хотите использовать для написания рабочего листа в виде файла .pdf. Вы можете определить свойство ActivePrinter приложения Excel, если необходимо, перед использованием метода ExportAsFixedFormat.

Вот код:

Dim lastRow As Integer Dim filePath As String With ThisWorkbook.Sheets(2) lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row .Range("A1:H" & lastRow).Copy .Paste Destination:=ThisWorkbook.Sheets(1).Range("A1") End With filePath = "C:" 'Edit file folder path the .pdf file will be saved to 'Application.ActivePrinter = "" 'Set active printer property if desired ThisWorkbook.Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=filePath & "voucherPrint.pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True 
Interesting Posts

Функция Excel Min не работает

Как изменить формат заголовков столбцов ColumnField в EPPlus?

Скремблирование данных с веб-сайта с помощью функции динамического массива – Excel VBA

Как экспортировать несколько сводных таблиц из python с помощью pandas в один документ csv?

Как получить положительный ответ от последней конечной точки тега instagram api?

Excel: подсчет ячеек с цветом и текстом: объединение Countif и Countcolour VBA

Чтение файла ods openoffice с помощью CreateOpenXmlReader в C #

Файлы JAVA Excel повреждены

Использование ODBC в Excel для вывода данных с помощью параметра. Есть ли способ закодировать ссылку на ячейку вместо ручной загрузки?

Преобразование нескольких входных файлов в один файл Excel с помощью Python

Как получить все ненулевые значения и их соответствующие заголовки столбцов в разные текстовые поля

Обмен переменными между powerpoint и excel VBA

Избегание INDIRECT ()

Копирование столбцов через рабочие листы в определенную начальную точку строки

кубические корни с помощью vba

Давайте будем гением компьютера.