Новости:

Интересные и полезные статьи по работе с Excel и VBA
можно найти в разделе ХИТРОСТИ

Главное меню

Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.

Просмотр сообщений

Сообщения - krilovsky68

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

конечный файл выложил для коллег, которые  увидят мои наработки и будут пользоваться.
по крайней мере печатью конвертов пользуется довольно большое количество адвокатов.
#2
сделал 4 кнопки печати с этим макросом:
Private Sub Макрос3()
Application.ScreenUpdating = False
Sheets("регистрационная карточка").Visible = True
Sheets("регистрационная карточка").Select
ActiveSheet.PrintOut copies:=1
Sheets("регистрационная карточка").Visible = False
Sheets("форма").Select
Application.ScreenUpdating = True
End Sub

так думаю надежнее будет и для меня проще.

попробую как нибудь поэкспериментировать с макросом предложенным вами.
получилось не так круто как у вас - но вполне сносно.
завтра на работе проверю.
всем спасибо за участие!
#3
спасибо за код.
единственное, что ваш код не работает.
попробовал заменить то, что было написано на ваш код - все тоже самое, что и у меня.
но это не главное - главное желание помочь!

в любом случае спасибо.
#4
к сожалению в макросах не силен.
то что написали как китайская грамота - хотя китайский более понятен.
принцип должен был такой быть - где ставиться галочка, тот лист печатается.
*** попытка перенести из одного файла макрос в другой не увенчалась успехом

попробую поискать еще.
вдруг кто поймет и помогут.
хотя по сути это моя блажь))).

по поводу ЛС писал, только из-за того, что было удален файл без которого сложно понять что надо сделать

в любом случае спасибо за внимание.
#5
ув. Дмитрий (The_Prist),
полагаю, что прочитав ЛС вы обратите внимание на это сообщение.

6 лет назад вы мне очень помогли, на смежном этому ресурсе.
думал, что сообщения за давностью лет затерлись, но найдя их и сравнив логин понял, что вы открыли свой форум.
поздравляю вас с этим событием.
надеюсь на вашу помощь.
6 лет назад, вы в 5 секунд мне все сделали)

с уважением, Крыловский Михаил.
#7
ув. vikttur , скажите пожалуйста, как я могу описать проблему, если вы удалили файл.
по сути проблема сводится к следующему:
1. есть кнопка печать - она не работает. почему не знаю. тоесть не нажимается. посмотреть можно в файле. правда файл удален. но готов его скинуть на электронную почту, любому кто может помочь.

2. есть макрос

Option Explicit
Sub PrintSheets()
   Dim rCell As Range, sShName As String
   Dim wsActSheet As Worksheet

   Set wsActSheet = ActiveSheet
   Application.ScreenUpdating = False
   For Each rCell In Range("F7:F8,F11:F13")
       If rCell = True Then
           Select Case LCase(rCell.Offset(, -1))
           Case "евро": sShName = "уведомление Евро"
           Case "российское"
               Call PrintOut("регистрационная карточка")
               sShName = "акт выполненных работ"
           Case Else: sShName = rCell.Offset(, -1)
           End Select
           Call PrintOut(sShName)
       End If
   Next rCell
   wsActSheet.Activate
   Application.ScreenUpdating = True
End Sub
Sub PrintOut(sSheetName As String)
           Sheets(sSheetName).Activate
           Sheets(sSheetName).PrintOut Copies:=1
           ActiveSheet.DisplayPageBreaks = False
End Sub

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

в файле печать конвертов все работает. а здесь не получается.
заранее спасибо за помощь

[gmod]Не цитируйте без необходимости. Для оформления кода - кнопка "VB Code"[/gmod]
#8
Цитата: vikttur от 27.05.2015, 17:18:26сообщения с файлами удалены
Так я наоборот думал - вдруг кому пригодиться.
в 2009 году мне помогали делать эту программку - здесь на форуме. очень удобная программка.
в то время ограничений не было.
в любом случае спасибо - буду знать, что п. 6.1.3. касается размещения сообщений в ветке.
#9
здравствуйте!
прошу помочь разобраться с макросом печати.
сам пробовал его адаптировать под новую форму - но ...

огромное спасибо за помощь.
Яндекс.Метрика Рейтинг@Mail.ru