Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Svetllllana
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Печать длинной строки с делением и продолжением на той же странице, печать на одной странице, без уменьшения масштаба.
 
#
13.02.2018 12:14:57
Добрый день,

Есть необходимость в печати длинных строк на одной страницы, без уменьшения масштаба (то есть переносом).
Условно у нас есть таблица из 10 строк с 20 столбцами. Столбца начиная с 15-го переносятся на другую страницу.
Необходимо, что бы при печати первой строкой выводилась первая строка с 1-го по 15-ый столбец. Второй строкой первая строка с 16-го по 20-ый столбец.
Третьей строкой вторая строка с 1-го по 15-ый столбец и так далее....

Я понимаю, что можно формировать это отдельной таблицей с помощью макроса, а потом выводить ее на печать.
Но можно ли это решить другими способами?  
Изменено: Svetllllana - 13.02.2018 12:39:18
 
Перейти    
Макрос. Вставка картинок, Проблемы с картинками
 
#
21.12.2015 20:43:35
Добрый день,

Суть макроса в том, что бы определить два столбца с данными и для каждой полученной строки вставить картинку (путь к картинке присутствует в файле). Картинки сохранены на рабочем столе.
Проблема с выводом картинок:
1. нужно зациклить действие для всех заполненных строк имеющейся таблицы
2. нужно уменьшить размер картинки до размера ячейки

Помогите пожалуйста!
Код
Sheets("Лист1").Select
    Sheets("Лист1").Copy
    Columns("D:D").Select
    Selection.Replace What:="*_", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="/", Replacement:="_", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(R1C18,R1C4,"".jpg"")"
    Range("H1").Select
    Selection.AutoFill Destination:=Range("H1:H6"), Type:=xlFillDefault
    Range("H1:H6").Select
    Columns("H:H").ColumnWidth = 37

    Range("H1:H6").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("Лист1").Select
    SheetRows = ActiveWorkbook.ActiveSheet.cells.SpecialCells(xlCellTypeLastCell).Row
    ColRows = Application.WorksheetFunction.CountA(Range(cells(1, 1), cells(SheetRows, 3)))
    
    ItRows = 1 
    
    For i = 2 To ColRows
    Sheets("Лист1").Select
    FotoTov = Range("H" & i).Value

    Sheets("Лист1").Select
    Strok = ItRows
    ItRows = Strok
    
    Range("J" & Strok).Select
    With ActiveSheet.Pictures.Insert(FotoTov).Select
        .Top = [J1].Top
        .Left = [J1].Left
    End With

    Next i
Изменено: stran9e - 21.12.2015 20:49:49
 
Перейти    
Страницы: 1
Наверх