Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Распечатка наоборот....

Автор: REVOLT 9.1.2006, 15:47

По русски

ЛистВокс:

------------
Иванов
Петров
Сидоров
------------
Ниже код, всё ништяк, распечатываем с первой записи по последнюю т.е. с Иванова по Сидорова

Код


Private Sub mnuFPrintAll1_Click()
  Data1.Recordset.MoveFirst
  Do
    frmPrint1.SetValues
    frmPrint1.PrintForm
    Data1.Recordset.MoveNext
  Loop Until Data1.Recordset.EOF
End Sub

Совственно нужен такой же код который выше чтобы распечатывал с Сидорова по Иванова

И за место этой формы ( frmPrint1) будет распечатываться другая (frmPrint2)

Это весь гемор для того чтобы не гемороиться с одним листом поочереди, а сразу распечатать весь список (однй формы) пото стопку листов перевернуть в принтере и распечатать с оратной стороны листа другие данные...

Вопрос понятен?

Как произвести распечатку с низу в верх по списку!

Автор: Akina 9.1.2006, 21:24

Прочитай чего ты написАл... и исправь, но так, чтобы любой понял в чем твоя проблема.

Автор: REVOLT 11.1.2006, 07:51

Что не кто мне не поможет...
Блин... куда мне ещё идти

Автор: Akina 11.1.2006, 13:54

Код


Private Sub mnuFPrintAll2_Click()
  Data1.Recordset.MoveLast
  Do
    frmPrint2.SetValues
    frmPrint2.PrintForm
    Data1.Recordset.MovePrev
  Loop Until Data1.Recordset.BOF
End Sub