Скажите а можно это сделать как-то без макроса? Есть проблемы, когда эта функция записана макросом, 1)При передаче файла на другой компьютер,эта кнопка перестает работать 2)Перед тем как переводить одним нажатием кнопки в ПДФ-формат необходимо проверять что стоит на печати по умолчанию, т.к. если там стоит печать на принтер, то он автоматически распечатывает этот файл, а не переводит в ПДФ.Вообщем нужно чтобы эта кнопка не зависела от того, что стоит по умолчанию на печати и чтоб при передаче файла на другой компьютер эта кнопка работала. В приврепленном файле есть желтый квадрат и мне нужно чтобы нажав на кнопку "Печать в ПДФ" он автоматически переводил в этот формат.
Скажите а можно это сделать как-то без макроса? Есть проблемы, когда эта функция записана макросом, 1)При передаче файла на другой компьютер,эта кнопка перестает работать 2)Перед тем как переводить одним нажатием кнопки в ПДФ-формат необходимо проверять что стоит на печати по умолчанию, т.к. если там стоит печать на принтер, то он автоматически распечатывает этот файл, а не переводит в ПДФ.Вообщем нужно чтобы эта кнопка не зависела от того, что стоит по умолчанию на печати и чтоб при передаче файла на другой компьютер эта кнопка работала. В приврепленном файле есть желтый квадрат и мне нужно чтобы нажав на кнопку "Печать в ПДФ" он автоматически переводил в этот формат.Яна-блондинка
Sub Макрос1() ChDir "C:\Documents and Settings\UserName\..." ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Documents and Settings\UserName\...\File.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True End Sub
[/vba]
[vba]
Code
Sub Макрос1() ChDir "C:\Documents and Settings\UserName\..." ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Documents and Settings\UserName\...\File.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True End Sub
1)При передаче файла на другой компьютер,эта кнопка перестает работать
там стоит 2003 экс. Но чтоб это утверждать, как раз надо видеть "приврепленный" файл. Со всеми потрохами. И еще замечание - раз уж разместили тему на нескольких форумах, предупреждайте, что тема обсуждается там-то и там.
Quote
В приврепленном файле есть желтый квадрат
Не вижу. И у меня такое подозрение, что
Quote
1)При передаче файла на другой компьютер,эта кнопка перестает работать
там стоит 2003 экс. Но чтоб это утверждать, как раз надо видеть "приврепленный" файл. Со всеми потрохами. И еще замечание - раз уж разместили тему на нескольких форумах, предупреждайте, что тема обсуждается там-то и там.KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
