Для вырезания журналов
'small nicety to ensure two-digits for better file sorting'
Function NiceFileNumber(num As Integer) As String
If num < 10 Then
NiceFileNumber = "0" & num
Else
NiceFileNumber = num
End If
End Function
'the real function'
Sub ExportAllCharts()
Dim i As Integer, exportCount As Integer
Dim fileNum As String, fileBase As String
Dim sheetObj As Worksheet
Dim chartObj As Chart
'current file location and name, with extension stripped'
fileBase = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".") - 1)
exportCount = 0
'First, export all charts that are in their own sheets'
For Each chartObj In ActiveWorkbook.Charts
fileNum = NiceFileNumber(exportCount)
exportCount = exportCount + 1
'Do the export'
chartObj.Export fileBase & "_chart" & fileNum & ".png"
Next
'Then, export all charts that are embedded inside normal sheets'
For Each sheetObj In ActiveWorkbook.Worksheets
For i = 1 To sheetObj.ChartObjects.count
fileNum = NiceFileNumber(exportCount)
exportCount = exportCount + 1
'Do the export'
sheetObj.ChartObjects(i).Activate
ActiveChart.Export fileBase & "_chart" & fileNum & ".png"
Next i
Next
End Sub
В проекте Apache есть полезная команда [11484] rotatelogs[11485], предназначенная для вращения входа, полученного через входной канал Чтение [11486] о roatelogs
, а также [11488] cronolog[11489] лучшая обработка времени. [11490]Кронологический сайтНо если вы также вращаетесь, то стоит подумать о логротате, но логротату нужен механизм для запуска нового лог-файла, (посылать сигнал, перезапускать программу, ...). Именно здесь может появиться rotatelogs/cronolog, если Вы протоколируете stdout и не хотите перезапускать процесс.
.У меня тоже была эта проблема. В моем случае оказалось, что требовалось изменение конфигурации на стороне сервера, в частности, в «Админ» -> «Сервер» включите «Разрешить печать из Интернета».
Не совсем понятно, почему, но похоже, что El Capitan предпочитает IPv6, а CUPS на стороне сервера интерпретирует это как доступ к «Интернету», а не к локальной сети.
HTH!