Печать готового PDF (любого файла) N количество копий.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Печать готового PDF (любого файла) N количество копий. (Макросы/Sub)

televnoy

Дата: Четверг, 25.09.2014, 06:29 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

День добрый уважаемые форумчане

Нарыл на забугорном сайте не плохой макрос для печати из под экселя совершенно любого формата файла (главное чтоб тот был зарегистрирован в системе)
Вот сам макрос:
[vba]

Код

Option Explicit
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Public Function PrintThisDoc(formname As Long, FileName As String)
On Error Resume Next
Dim X As Long
X = ShellExecute(formname, "Print", FileName, 0&, 0&, 3)
End Function

Sub testPrint()
Dim printThis
Dim strDir As String
Dim strFile As String

strDir = "C:\NewFolder"
strFile = "My.pdf"
printThis = PrintThisDoc(0, strDir & "\" & strFile)
End Sub

[/vba]
А под себя я переделал -
Отдельным модулем эту часть:
[vba]

Код

[/vba]
А оставшуюся часть заключил в цикл (для нужного количество печати):
[vba]

Код

Private Sub CommandButton1_Click()

      If CheckBox1.Value Then
      For i = 1 To TextBox1
      '____________________________
    'Указываем расположение файла
strDir = Range("b3")
    'Название файла
strFile = Range("c3")
printThis = PrintThisDoc(0, strDir & "\" & strFile)
      '____________________________
       Next
       Else
       End If

'И т.д. и т.п.

       If CheckBox(N).Value Then
       For i = 1 To TextBox1
       '____________________________
      'Указываем расположение файла
strDir = Range("b(N)")
      'Название файла
strFile = Range("c(N)")
printThis = PrintThisDoc(0, strDir & "\" & strFile)
       '____________________________
       Next
       Else
       End If

End Sub

[/vba]
Так вот данный метод - метод цикла тормозит процесс печати, получается файл открывается N-е кол-во раз - заданное в макросе(TextBox1),перед каждой печатью. Чутье мне подсказывает где то зарыта собака в первой части. Помогите пожалуйста.
Каждая часть заключена в цикл для того чтоб не разбиралась , по копиям. Если же весь макрос заключить в цикл то пример печати будет 1,2,3 1,2,3 1,2,3, вместо положенного 1,1,1 2,2,2 3,3,3. Кстати это тоже было бы замечательно осуществить - выбор печати.

День добрый уважаемые форумчане

Код

[/vba]
А под себя я переделал -
Отдельным модулем эту часть:
[vba]

Код

[/vba]
А оставшуюся часть заключил в цикл (для нужного количество печати):
[vba]

Код

К сообщению приложен файл: ForumPrint.xls (71.5 Kb) · test-1-.pdf (79.4 Kb)

О-па! 0_o

Сообщение отредактировал televnoy - Четверг, 25.09.2014, 06:36