Форум программистов, компьютерный форум CyberForum.ru

Программа для печати всех файлов из указанной папки - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Хороший или плохой тон программирования http://www.cyberforum.ru/cpp/thread109667.html
вот в книгах читаю что гото туфта полная..на форуме тоже так говорят,а почему?очень нужная вещь,иногда лучше использовать это чем циклы
C++ книга Windows 2000 API Р.Саймон где скачать диск с программами? книга Windows 2000 API Р.Саймон где скачать диск с программами который идет к книге? http://www.cyberforum.ru/cpp/thread109533.html
Календарь C++
Дни недели пронумерованы следующим образом: 1 — понедельник, 2 — вторник, ... , 6 — суббота, 7 — воскресенье. Дано целое число K, лежащее в диапазоне 1–365, и целое число N, лежащее в диапазоне 1–7. Написать программу, которая определяет номер дня недели для K-го дня года, если известно, что в этом году 1 января было днем недели с номером N. Входные данные Со стандартного потока ввода вводится...
Как сделать сохранение? C++
как сделать сохранение всех сточек в текстовый файл для этой программы? подскажыте...
C++ Текст плеера http://www.cyberforum.ru/cpp/thread109197.html
дайте текст плеера!
C++ Разобрать построчно код по бинарному дереву! Помогите разобрать код C++ #include "BinTree.h" #include <iostream> using namespace std; CBinTree::CBinTree(void) { this->root = new Node(); this->root->value = ""; } подробнее

Показать сообщение отдельно
lemuriec
11 / 11 / 1
Регистрация: 30.03.2010
Сообщений: 116
30.03.2010, 11:32  [ТС]     Программа для печати всех файлов из указанной папки
а которые печатают PDF?

Добавлено через 3 минуты
У меня есть VBScript который распечатывает все doc файлы из указанной папки. Есть возможность его доработать?

Добавлено через 1 минуту
Вот ссылка на ресурс: Ссылки на форумы запрещены
А вот сам скрипт

Код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Const wdDoNotSaveChanges    =  0
Const wdPromptToSaveChanges = -2
Const wdSaveChanges         = -1
 
 
Dim objWord, objDoc, objFS, objFolder, objItem
 
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder("c:\work\temp\") 'Папка, из которой производится печать
Set objWord = WScript.CreateObject("Word.Application")
 
    For Each objItem In objFolder.Files
        If StrComp(objFS.GetExtensionName(objItem.Name), "doc", vbTextCompare) = 0 Then
            With objWord
                Set objDoc = .Documents.Open(objItem.Path, False, True, False)
                objDoc.PrintOut False
                Set objDoc = Nothing
            End With
            
        End If
    Next
objWord.Quit
Set objWord = Nothing
WScript.Quit 0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru