Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Помогите с двухсторонней печатью
 
 автор: RusUser   (27.01.2011 в 02:38)   личное сообщение
 
 

Здравствуйте, помогите пожалуйста, не могу сделать двустороннюю печать.
Необходимо печатать сертификаты на хорошей дорогой бумаге формата А4.
На одном листе должно быть напечатано 4 разных сертификата в двустороннем виде, на одной стороне по русски на второй по английски
Не знаю как сделать ..
1. Необходимо печать 4 разных сертификата на листе А4 - самое важное.
2. Печатать со второй стороны те же сертификаты но на английском - второстепенное.
Поля:

ФИО
Предмет 1
Сертификат получен:
Сертификат действителен до:
-

ФИО
Предмет 2
Сертификат получен:
Сертификат действителен до:
-

ФИО
Предмет 3
Сертификат получен:
Сертификат действителен до:
-

ФИО
Предмет 4
Сертификат получен:
Сертификат действителен до:
-
+ те же поля на английском.
=
P.S.: Принтер умеет печатать с двух сторон.

  Ответить  
 
 автор: RusUser   (27.01.2011 в 06:13)   личное сообщение
 
 

как печатать 4 разных сертификата нашел как сделать.
Отчет - установка - столбцы - число столбцов 4.
Получилось что на одном листе печатается 4 сертификата,
Теперь нужно чтобы на следующем листе печаталась вторая сторона этих 4-х сертификатов.

  Ответить  
 
 автор: Дядя Федор   (27.01.2011 в 08:25)   личное сообщение
 
 

Двусторонняя печать

                    With Me.Printer
                    On Error Resume Next
                    .Duplex = acPRDPVertical
                    Err.Clear
                    End With


Новая страница
Раздел.ForceNewPage(1)

Дальше сам придумай. Может первую страницу и вторую страницу разместить в разных разделах?

  Ответить  
 
 автор: RusUser   (28.01.2011 в 04:06)   личное сообщение
 
 

Да бог с ней с двухсторонней печатью .. у меня на принтере кнопка есть - двусторонняя печать ))
Мне нужно чтобы к примеру напечатать 40 сертификатов.
на 1-м листе А4 - 4 сертификата влазит.
На второй стороне этого же листа - тот же текст что и на первой стороне, только по английски.
Получается теперь мне нужно сделать чтобы сначала печатался 1-й лист на русском, а второй лист должен быть на английском и так должно чередоваться.
Я сделал 2 отчета, вставил их в пустой отчет - получилось, что сначала печатается 10 листов первой стороны(первый отчет) а потом 10 листов второго отчета.
Так мне не нужно - мне нужно чтобы отчеты чередовались.

  Ответить  
 
 автор: snipe   (28.01.2011 в 04:46)   личное сообщение
 
 

так вы перед тем как открыть отчет подготовте данные в том виде который нужно
т.е. 4 записи по русски потом 4 записи по англицки (цикл повторить нужное количество раз)
возможно придется создавать временную таблицу и на основе ее открывать отчет
потом таблу очищать

  Ответить  
 
 автор: RusUser   (31.01.2011 в 02:26)   личное сообщение
 
 

В том то и дело, что я не могу подготовить 4 записи на одном листе - они у меня в этом случаи все 4 одинаковые получаются...
А надо чтобы на одном листе были - Иванов, Петров, Сидоров, Иваненко. (Это получилось сделать через Отчет - установка - столбцы - число столбцов 4.) Но как заставить программу печатать второую страницу на английском для тех же фамилий.)
А на второй стороне Ivanov, Petrov, Sidorov, Ivanenko
Получается я могу напечатать 40 листов на русском, потом перевернуть их вручную и напечатать второй отчет на английском.
Если тут есть кто нибудь кто хорошо разбирается в ACCESS, помогите пожалуйста примером...

  Ответить  
 
 автор: snipe   (31.01.2011 в 05:07)   личное сообщение
 
 

Надо базу
и от нее танцевать
иначе я такого нафантазировать могу
данные конечно же левые главное таблицы и структура, собственно отчет
(в формате 2003)

  Ответить  
 
 автор: kot_k_k   (31.01.2011 в 09:38)   личное сообщение
 
 

временная табла - tabla с полями
ID
FIO

set dbs=currentdb
dbs.execute ("delete * from tabla")
set rs=dbs.Openrecordset("FIO")
set rs_1=dbs.Openrecordset("tabla")
do while rs.EOF=False
      For j=1 to 2
           For i=1 to 3
               rs_1.AddNew
               select case j
                        case 1
                               rs_1!FIO=rs!FIO_Russa
                        case 2
                               rs_1!FIO=rs!FIO_Latinica
               end select
               rs_1.Update
               rs.MoveNext
           next
           rs.Move -4
      next
      rs.MoveNext
loop


где-то так и выводим на печать сортируя по ID

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList