четверг, 18 июня 2015 г.
суббота, 13 июня 2015 г.
вторник, 9 июня 2015 г.
PrintOut VBA
Печатайте на принтер Excel
Application.ActivePrinter = "MyPrinter"
или
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="MyPrinter"
При этом активный принтер компьютера менять не надо. =======================================================
ActiveSheet.PrintOut ActivePrinter:="HP LaserJet 5L"
Range("A1:C10").PrintOut
ActivePrinter:="HP LaserJet 5L (LPT1:)"
ThisWorkbook.Worksheets(1).Range("B2:C10").PrintOut
Предполагается, что распечатать нужно только ячейки и графические об'екты диапазона B2:C10 первого рабочего листа текущей рабочей книги.
If Worksheets("киоски").Range("F4").Value <> "" Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate:=True
Else
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate:=True
If Worksheets("киоски").Range("F4").Value <> "" and
Worksheets("киоски").Range("E4").Value <> "" Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate:=True
Else
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate:=True
понедельник, 1 июня 2015 г.
Синтаксис DoCmd
Условия отбора для строковых значений
DoCmd.OpenReport "Сотрудники", acViewNormal, , "[cust_Fam]=" & "'" & Me![sd_Fam] & "'"
то есть
DoCmd.OpenReport "Сотрудники", acViewNormal, , "[cust_Fam]='Иванов'"
Условия отбора для числовых значений
DoCmd.OpenReport "Продажи", acViewNormal, , "[cust_id]=" & Me![cust_ID]
Вот еще пример
Private Sub Кнопка10_Сlick()
'Открыть таблицу DoCmd.OpenTable «Учащиеся», acNormal, acEdit
'Выделить объект - таблицу Учащиеся
DoCmd.SelectObject acTable, «Учащиеся», True
'Открыть форму Форма1
'DoCmd.OpenForm «Форма1», acNormal, "", "",, acNormal
DoCmd.OpenForm «Форма_с_кнопкой», acNormal, "", "", ,acNormal
DoCmd.ApplyFilter "", «[Учащиеся]![Пол]=Тгие»
End Sub
DoCmd.OpenReport "Сотрудники", acViewNormal, , "[cust_Fam]=" & "'" & Me![sd_Fam] & "'"
то есть
DoCmd.OpenReport "Сотрудники", acViewNormal, , "[cust_Fam]='Иванов'"
Условия отбора для числовых значений
DoCmd.OpenReport "Продажи", acViewNormal, , "[cust_id]=" & Me![cust_ID]
Вот еще пример
Private Sub Кнопка10_Сlick()
'Открыть таблицу DoCmd.OpenTable «Учащиеся», acNormal, acEdit
'Выделить объект - таблицу Учащиеся
DoCmd.SelectObject acTable, «Учащиеся», True
'Открыть форму Форма1
'DoCmd.OpenForm «Форма1», acNormal, "", "",, acNormal
DoCmd.OpenForm «Форма_с_кнопкой», acNormal, "", "", ,acNormal
DoCmd.ApplyFilter "", «[Учащиеся]![Пол]=Тгие»
End Sub
среда, 27 мая 2015 г.
понедельник, 25 мая 2015 г.
суббота, 23 мая 2015 г.
Удаленный Доступ и Удаленное Управление Компьютерами
Ammyy Admin - оптимальное решение для удаленного доступа к компьютеру через Интернет!
Ammyy Admin - это программа, которая позволяет быстро и безопасно получить удаленный доступ к компьютеру или серверу через Интернет и управлять ими в режиме реального времени. Вы можете дистанционно работать с удаленным рабочим столом, как-будто находитесь прямо за ним.
Более 50 000 000 частных и корпоративных пользователей используют Ammyy Admin
Более 50 000 000 частных и корпоративных пользователей используют Ammyy Admin
Подписаться на:
Сообщения (Atom)