| Вопрос: Печать экранных шрифтов в Excel | Добавлено: 28.03.08 15:10 |
Автор вопроса:  forreg
|
| Всем привет. Столкнулся с проблемой распечатки экранных шрифтов из Excel. Экранный это такой шрифт, который отображается, но на печать не выводится. Вместо него при печати выводятся закорючки. Так вот появилась простая идея как это обойти. Идея следующая: копировать графический слой ячейки, другими словами как бы принтскринить и потом вставлять этот "принтскрин ячейки" на место этой ячейки, т.е. вставлен будет уже рисунок, который без проблем напечататеся. Может ли кто-нибудь реализовать это в виде макроса? Сразу скажу что сам я с VBA не дружу и тому кто это осилит за меня большой респект. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  forreg Вопросов: 1 Ответов: 1 |
Профиль | | #1 | Добавлено: 30.03.08 08:42 |
|
Всем спасибо за внимание. Ввиду наличия опыта в программировании, с помощью справочной системы осилил задачу сам. Вот готовое решение, может кому пригодится. Себе делал для распечатки словарей, которые сохраняет Lingvo Tutor, для замены крякозябров, которые печатаются вместо символов транскрипции экранного шрифта Lingvo OEM.
Sub PictureInsteadOfText()
Rng = Selection.Rows.Count 'Подсчет строк в выбранной области ActiveCell.Offset(0, 0).Select ' Переход к первой ячейке выделения For i = 1 To Rng 'Цикл ActiveCell.CopyPicture xlScreen, xlBitmap 'Копируем ячейку в буфер как рисунок ActiveSheet.Paste Destination:=ActiveCell 'Вставляем рисунок в ячейку из которой только что копировали ActiveCell.Offset(1, 0).Select 'Переходим к следующей ячейке Next i End Sub |
||
Страница: 1 |