Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 След.
RSS
Предпросмотр и печать не совпадают с картинкой на экране
 
#1
21.09.2011 13:31:12
Во вкладке "Печать" отображается нужная картинка, но при попытке распечатать выводится белиберда какая-то. Если кто сталкивался, помогите, пожалуйста.
 
 
 
#2
21.09.2011 13:36:15
{quote}{login=Fina}{date=21.09.2011 01:31}{thema=Предпросмотр и печать не совпадают с картинкой на экране}{post}Во вкладке "Печать" отображается нужная картинка, но при попытке распечатать выводится белиберда какая-то. Если кто сталкивался, помогите, пожалуйста.{/post}{/quote}
 
 
 
#3
21.09.2011 13:55:57
{quote}{login=Fina}{date=21.09.2011 01:31}{thema=Предпросмотр и печать не совпадают с картинкой на экране}{post}Во вкладке "Печать" отображается нужная картинка, но при попытке распечатать выводится белиберда какая-то. Если кто сталкивался, помогите, пожалуйста.{/post}{/quote}
 
 
 
#4
21.09.2011 14:07:06
А как выглядит эта "белиберда какая-то"?  
Можно фото распечатки?  
Что на ней не так?
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#5
21.09.2011 14:14:53
{quote}{login=Fina}{date=21.09.2011 01:31}{thema=Предпросмотр и печать не совпадают с картинкой на экране}{post} при попытке распечатать выводится белиберда какая-то. {/post}{/quote}Что Вы имеете ввиду под "белибердой"?    
У меня вот что получается...
 
 
 
#6
21.09.2011 14:23:44
Миш, краски не жалко?:-) Возможно у ТС дрова на принт левые.
Я сам - дурнее всякого примера! ...
 
 
 
#7
21.09.2011 14:26:30
У меня все нормально. Печатал на doPDF v7
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#8
21.09.2011 14:27:19
Не, не жалко. Во-первых, не краска, а тонер. Во-вторых - картридж не мой, и я распечатал как проверка качества заправки :)
 
 
 
#9
21.09.2011 14:27:21
А у меня вот
 
 
 
#10
21.09.2011 14:29:22
Кстати, принтера у меня нет, я проверяю на предпросмотре. Но напечатать просила, та же ерунда.
 
 
 
#11
21.09.2011 14:33:05
{quote}{login=Fina}{date=21.09.2011 02:27}{thema=Re: Re: Предпросмотр и печать не совпадают с картинкой на экране}{post}А у меня вот{/post}{/quote}Не надо катинку вствлять в файл excel, лучше выкладывать саму катинку в формате .gif (для Веб предпочтительнее), или .jpg  
 
зы. По теме - ни чего сказать не могу - не знаю.
 
 
 
#12
21.09.2011 14:40:32
Не придумала, куда картинку можно сохранить из буфера...
 
 
 
#13
21.09.2011 15:52:58
Неужели у всех нормально отображается?
 
 
 
#14
21.09.2011 16:29:16
У меня тоже помоему ерунда какая то отображается, вот что видно в предварительном просмотре. см. скрин.  
Буду думать почему.
Редко но метко ...
 
 
 
#15
21.09.2011 16:37:41
У меня на предварительном всё отлично. На принтер не пробовал.
 
 
 
#16
21.09.2011 16:49:08
Может это глюк только 2007 Excel?
 
 
 
#17
21.09.2011 18:50:01
Такое впечатление, что неправильно заданы поля в параметрах страницы... Попробуйте их уменьшить (левое/правое)
 
 
 
#18
21.09.2011 19:06:05
{quote}{login=Юрий М}{date=21.09.2011 06:50}{thema=}{post}Такое впечатление, что неправильно заданы поля в параметрах страницы... Попробуйте их уменьшить (левое/правое){/post}{/quote}  
 
Да, каким-то образом влияют поля вкладки "каталог", но непонятно... Попробую подвигать.
 
 
 
#19
21.09.2011 19:21:43
{quote}{login=Fina}{date=21.09.2011 07:06}{thema=Re: }{post}{quote}{login=Юрий М}{date=21.09.2011 06:50}{thema=}{post}Такое впечатление, что неправильно заданы поля в параметрах страницы... Попробуйте их уменьшить (левое/правое){/post}{/quote}  
 
Да, каким-то образом влияют поля вкладки "каталог", но непонятно... Попробую подвигать.{/post}{/quote}  
 
Нет. Не получается.
 
 
 
#20
21.09.2011 19:26:51
А что это за вкладка такая - "каталог"? Это где?
 
 
 
#21
21.09.2011 21:43:10
{quote}{login=Юрий М}{date=21.09.2011 07:26}{thema=}{post}А что это за вкладка такая - "каталог"? Это где?{/post}{/quote}  
 
 
Второй лист в книге "Каталог".
 
 
 
#22
22.09.2011 23:48:48
Помогите, пожалуйста, советом.
 
 
 
#23
24.09.2011 03:20:13
{quote}{login=Fina}{date=22.09.2011 11:48}{thema=Re: Re: }{post}Помогите, пожалуйста, советом.{/post}{/quote}  
Избавиться от "глюка" Excel 2007 поможет такой код в модуле ЭтаКнига:  
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)  
 Лист1.Shapes("Рисунок 6").OLEFormat.Object.Formula = ""  
 Лист1.Shapes("Рисунок 7").OLEFormat.Object.Formula = ""  
 Application.OnTime Now, Me.CodeName & ".SetShapesFormulas"  
End Sub  
 
Sub SetShapesFormulas()  
 Лист1.Shapes("Рисунок 6").OLEFormat.Object.Formula = "фото"  
 Лист1.Shapes("Рисунок 7").OLEFormat.Object.Formula = "фото1"  
End Sub  
 
Исправленный вариант приложен
 
 
 
#24
24.09.2011 20:50:30
Спасибо большое за ответ. Ваш файл работает отлично, а у меня выдает ошибку. При закрытии ошибки картинка разбита. Скрин экрана прилагаю.
 
 
 
#25
24.09.2011 20:59:24
Прилагаю... )
 
 
 
#26
24.09.2011 22:17:10
Скорее всего, в коле вместо Лист1 нужно вписать кодовое имя Вашего листа  
Или вместо "Рисунок 6", "Рисунок 7" вписать корректные названия для Вашего случая.  
Выложите куда-нибудь (на файлообменник) свой файл - поправлю.
 
 
 
#27
25.09.2011 11:21:08
Вот ссылка. Поправьте, пожалуйста.  
http://ifolder.ru/25934120
 
 
 
#28
25.09.2011 17:27:24
Замените Ваш код на один из 2-х приведенных ниже вариантов:  
 
1. Вариант с кодовым именем листа, удобен тем, что работает даже если пользовательское имя листа "Печать" изменится  
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)  
 Лист2.Shapes("Рисунок 6").OLEFormat.Object.Formula = ""  
 Лист2.Shapes("Рисунок 7").OLEFormat.Object.Formula = ""  
 Лист2.Shapes("Рисунок 8").OLEFormat.Object.Formula = ""  
 Лист2.Shapes("Рисунок 9").OLEFormat.Object.Formula = ""  
 Application.OnTime Now, Me.CodeName & ".SetShapesFormulas"  
End Sub  
 
Sub SetShapesFormulas()  
 Лист2.Shapes("Рисунок 6").OLEFormat.Object.Formula = "фото"  
 Лист2.Shapes("Рисунок 7").OLEFormat.Object.Formula = "фото1"  
 Лист2.Shapes("Рисунок 6").OLEFormat.Object.Formula = "фото2"  
 Лист2.Shapes("Рисунок 7").OLEFormat.Object.Formula = "фото3"  
End Sub  
 
2. Вариант с пользовательским именем листа "Печать"  
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)  
 Sheets("Печать").Shapes("Рисунок 6").OLEFormat.Object.Formula = ""  
 Sheets("Печать").Shapes("Рисунок 7").OLEFormat.Object.Formula = ""  
 Sheets("Печать").Shapes("Рисунок 8").OLEFormat.Object.Formula = ""  
 Sheets("Печать").Shapes("Рисунок 9").OLEFormat.Object.Formula = ""  
 Application.OnTime Now, Me.CodeName & ".SetShapesFormulas"  
End Sub  
 
Sub SetShapesFormulas()  
 Sheets("Печать").Shapes("Рисунок 6").OLEFormat.Object.Formula = "фото"  
 Sheets("Печать").Shapes("Рисунок 7").OLEFormat.Object.Formula = "фото1"  
 Sheets("Печать").Shapes("Рисунок 6").OLEFormat.Object.Formula = "фото2"  
 Sheets("Печать").Shapes("Рисунок 7").OLEFormat.Object.Formula = "фото3"  
End Sub
 
 
 
#29
25.09.2011 18:58:18
ZVI, спасибо вам большое, первый вариант уже подошел и я могу продолжить. Вы мне очень помогли. Спасибо!
 
 
 
#30
25.09.2011 19:10:33
Рад был помочь.  
 
Только в коде процедуры SetShapesFormulas я не обратил внимание на опечатки, там  вместо "Рисунок 8" и "Рисунок 9" было повторно "Рисунок 6" и "Рисунок 7"  
 
Правильно так:  
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)  
 Лист2.Shapes("Рисунок 6").OLEFormat.Object.Formula = ""  
 Лист2.Shapes("Рисунок 7").OLEFormat.Object.Formula = ""  
 Лист2.Shapes("Рисунок 8").OLEFormat.Object.Formula = ""  
 Лист2.Shapes("Рисунок 9").OLEFormat.Object.Formula = ""  
 Application.OnTime Now, Me.CodeName & ".SetShapesFormulas"  
End Sub  
 
Sub SetShapesFormulas()  
 Лист2.Shapes("Рисунок 6").OLEFormat.Object.Formula = "фото"  
 Лист2.Shapes("Рисунок 7").OLEFormat.Object.Formula = "фото1"  
 Лист2.Shapes("Рисунок 8").OLEFormat.Object.Formula = "фото2" ' Было "Рисунок 6"  
 Лист2.Shapes("Рисунок 9").OLEFormat.Object.Formula = "фото3" ' Было "Рисунок 7"  
End Sub
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх