Вопрос : Первенствуйте затир по мере того как формы печатание изображения flagged для того чтобы не напечатать.

Здравствулте! специалисты,

I am пытаясь… «Изображение/экземпляр Paste/As как изображение/как показан печатано» ..... части листа содержа и колонки и формы данных.  Я не хочу формы напечатать, и flagged формы в окне свойств формы для того чтобы не напечатать, но когда I «изображение/экземпляр Paste/As как изображение/как показан после того как я печатан»….форма также напечатана.  Их Кодий VBA для того чтобы предотвратить это?   Я прикрепил sample.

Thanks для помощи!     class= " lastRow
>Attachments " имени " class= class= " значение "
>
filename " class= >Copy-as-Shown-printed.xlsm (21 KB) яваскрипт " href= " " attachmentDetails class= (тип архива детали)
>Excel 2007 xlsm
" описания " class=
class=
>
class=

Ответ : Первенствуйте затир по мере того как формы печатание изображения flagged для того чтобы не напечатать.

Здравствулте! biker9,

когда вы используете CopyPicture, вы копируете изображение по мере того как они появляются на экран. Установки печати для формы проигнорированы. Она довольно как принимать screenshot, не как посылка ряда к принтеру (в который случай не напечатала бы форме).

Как временное решение, вы можете установить заполнение и границу формы к msoFalse перед копировать ряд (как ряд или изображение) и после этого, после деятельности экземпляра, восстановить заполнение и граничить (с msoTrue)

Прикрепленный фрагмент Кодего работает на вашем примере.

приветственные восклицания, teylyn
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Sub Print_as_Pic ()
'
    С ActiveSheet.Shapes.Range (блоком («прямоугольником 11»))
        . Fill.Visible = msoFalse
        . Line.Visible = msoFalse
    Конец с
    Ряд («B2: F22»). Скопируйте ряд («J2»)
    С ActiveSheet.Shapes.Range (блоком («прямоугольником 11»))
        . Fill.Visible = msoTrue
        . Line.Visible = msoTrue
    Конец с
    Ряд («P4»). Отборно

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us