Заполнить форму-> записать в базу-> вывести на печать

@Andgar · Регистрация: 26.01.2016

Студворк — интернет-сервис помощи студентам

Доброго времени!! Попробовал сделать сам, но получилось как всегда)) - сильный ушиб головы и монитора...
прошу помощи у Вас, с решением задачи:

Лист1:
заполняю ячейки выделенные желтым (некоторые ячейки могут оставаться пустыми).
После нажатия кнопки "Copy":
- все данные копируются на Лист2 в следующую пустую строку,
- на Лист1 заполненные ячейки очищаются,
- на Лист2 присваивается последовательный номер в первом столбце (№) для каждой записи,
- во втором столбце (Date) записывается текущая дата и время
После нажатия кнопки "Print":
- повторяются действия кнопки "Copy",
- все данные копируются на Лист3 в подготовленную форму с автоматическим выводом на печать.

Пример во вложении,
Благодарю!

@Andgar · 28.01.2016, 14:06 **[ТС]**

подскажите пожалуйста, киньте ссылками, примерами

@eritik · 28.01.2016, 15:19

Andgar, для кнопки принт вот так можно сделать.
заранее только задай область печати, чтобы не редактировать в макросе

Visual Basic
1
2
3
4
5
6
7
8
Worksheets(3).Range("e3") = Range("g7").Text
.................
...................
....................
Sheets(3).Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
Sheets(1).Select

Добавлено через 13 минут

для кнопки "КОПИРОВАНИЯ"
Andgar, к сожалению рабочий файл выложить не могу...политика безопасности не дает.
коротко:
- таблицу запиши в строку(по примеру с листа 2)
- добовать к строке две в начале порядковый номер (=СЧЁТ(Лист2!A:A)+1) и (=сегодня())
потом макросом копируй и вставляй строку с листа 1 на лист 2

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
 
Application.Calculation = xlManual
Sheets(2).Select
lLastRowMyBook = ThisWorkbook.Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets(1).Range("диапазон сформированной строки").Copy Destination:=ThisWorkbook.Worksheets(2).Cells(lLastRowMyBook, 1) ' копируем с листа1 в последнюю строку данные
Range("a:n").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False ' вставляем в формате "значения"
Application.Calculation = xlCalculationAutomatic

....
вот как то так

@Andgar · 29.01.2016, 07:27 **[ТС]**

пробую повторить... не выходит каменный цветок(
можно ли рабочий файл в архиве выложить?

@eritik · 29.01.2016, 08:39

Andgar, вставь код в кнопку принт!

Visual Basic
1
2
3
4
5
6
7
8
9
10
Application.ScreenUpdating = False
Worksheets(3).Range("e3") = Range("g7").Text
Worksheets(3).Range("e6") = Range("h13").Text
Worksheets(3).Range("e7") = Range("h12").Text
'сюда по примеру дописываешь остальные ссылки
Sheets(3).Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
Sheets(1).Select
Application.ScreenUpdating = True

если что то не работает, выложи скрин.

Добавлено через 1 минуту
Andgar,

Сообщение от eritik

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

@Andgar · 02.02.2016, 05:57 **[ТС]**

Благодарю!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@Andgar 0 / 0 / 0 Регистрация: 26.01.2016 Сообщений: 4
	28.01.2016, 14:06 [ТС]
	подскажите пожалуйста, киньте ссылками, примерами 0

@Andgar 0 / 0 / 0 Регистрация: 26.01.2016 Сообщений: 4
	29.01.2016, 07:27 [ТС]
	пробую повторить... не выходит каменный цветок( можно ли рабочий файл в архиве выложить? 0

@Andgar 0 / 0 / 0 Регистрация: 26.01.2016 Сообщений: 4
	02.02.2016, 05:57 [ТС]
	Благодарю! 0