Печать отчетов в определенном формате

@жека3 · Регистрация: 27.02.2011

Author24 — интернет-сервис помощи студентам

Добрый Всем день.
В базе много отчетов А4 и А6 форматов.При смене принтера все переходит в А4.
Приходится все менять в ручную.Если есть лучший способ,буду рад помощи.

@жека3 · 01.04.2013, 14:19 **[ТС]**

Можно ли программно указать формат отчета?

@Андрэич · 01.04.2013, 14:42

Сообщение от жека3

В базе много отчетов А4 и А6 форматов.При смене принтера все переходит в А4.

Вот здесь либо не понял вопрос, либо в моём понимании есть несостыковки или недопонимание Автора.

Речь, видимо, идёт не о форматах, но о настройках параметров страницы при печати.

Наверное, можно использовать вложенные отчёты.

Читал, что есть известная проблема с разными принтерами. Это можно корректировать "программно-принудительно", в завис от подключаемого принтера и конечных данных, содержащихся в отчёте...

@жека3 · 01.04.2013, 15:11 **[ТС]**

Да,о настройках параметров страницы при печати,только программным методом

@Андрэич · 01.04.2013, 16:29

"Погуглите": или по Форуму, или в сети. Кажется, видел похожие обсуждения на Хайпрог или на Русимпорте...

@жека3 · 01.04.2013, 16:58 **[ТС]**

А вот с этого можно что то слепить по короче

Dim strReport As String
Dim rpt As Report

strReport = "Employees"

'Open the Report in Preview/Hidden Mode
DoCmd.OpenReport strReport, View:=acViewPreview, WindowMode:=acHidden

'Retrieve the Paper Size set for the Report
With Reports(strReport)
With .Printer
If .PaperSize = acPRPSA4 Then
'Paper Size is A4, now what...
End If
End With
End With

@Андрэич · 01.04.2013, 17:03

Вы пробуйте, а потом нам расскажете...

Добавлено через 1 минуту
Проще всего решить, наверное, на уровне Апи, но вы не сталкивались с этим?

@жека3 · 01.04.2013, 20:18 **[ТС]**

конечно же буду пробовать

Добавлено через 3 часа 1 минуту
Вот так печатает А6

Dim strReport As String
Dim rt As Report
strReport = "proba"
DoCmd.OpenReport strReport, acViewNormal
With Reports(strReport)
With .Printer
.PaperSize = acPRPSEnvC6
End With
End With

@minob · 01.04.2013, 21:13

Сообщение от жека3

Вот так печатает А6

Dim strReport As String
Dim rt As Report
strReport = "proba"
DoCmd.OpenReport strReport, acViewNormal
With Reports(strReport)
With .Printer
.PaperSize = acPRPSEnvC6
End With
End With

Так то оно так, но немножечко не так. (с)

В миллиметрах размер листа формата A6 - 105 × 148, а размер листа формата C6 - 114 × 162.
Если заглянуть сюда, то увидим, что

acPRPSEnvC6_____31_____Envelope C6 (114 mm x 162 mm)

@жека3 · 01.04.2013, 23:41 **[ТС]**

Спасибо за полезную ссылку.Дело в том ,что А6 как такового почему то нет.Конверт работает,а то что он немного больше роли особой не играет.Главное решен принцип выбора размера.Но еще есть загвоздка,не идет дальше msgbox,может чего посоветуете.

Dim strReport As String
Dim rt As Report
strReport = "proba"
DoCmd.OpenReport strReport, acViewNormal
With Reports(strReport)
With .Printer
.PaperSize = acPRPSEnvC6
End With
End With
msgbox ""

Добавлено через 41 минуту
Вот так пошло

Dim rp As Access.Report
Dim pr As Access.Printer
Set Application.Printer = Nothing
Set pr = Application.Printer
pr.PaperSize = acPRPSEnvC6
DoCmd.OpenReport "proba", acViewPreview
Set rp = Reports("proba")
Set rp.Printer = pr

msgbox ""

@minob · 01.04.2013, 23:42

Сообщение от жека3

Спасибо за полезную ссылку.Дело в том ,что А6 как такового почему то нет.

Если использовать свойство PrtDevMode (см. Help), то можно задать размеры (длину и ширину) с точностью до 0,1 мм (так по крайней мере написано в справке).

Сообщение от Help

...
PaperSize Значение типа Integer, указывающее размеры листа бумаги при печати. Если этот компонент установлен равным 0 или 256, то длина и ширина листа указываются с помощью компонентов PaperLength и PaperWidth соответственно. В противном случае следует задать одно из стандартных значений. Список значений для компонента PaperSize содержится в разделе Значения компонента PaperSize.

PaperLength Значение типа Integer, определяющее длину листа бумаги в условных единицах, равных 1/10 миллиметра. Для специальных размеров бумаги и устройств типа матричных принтеров, которые могут печатать на бумаге разных размеров, значение этого компонента имеет приоритет над значением длины листа, указанным в компоненте PaperSize.

PaperWidth Значение типа Integer, определяющее ширину листа бумаги в условных единицах, равных 1/10 миллиметра. Значение этого компонента имеет приоритет над значением ширины листа, указанным в компоненте PaperSize.
...

Сообщение от жека3

есть загвоздка,не идет дальше msgbox,может чего посоветуете.

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

@жека3 14 / 0 / 0 Регистрация: 27.02.2011 Сообщений: 242
		1
	Печать отчетов в определенном формате 29.03.2013, 12:36. Показов 2794. Ответов 10 Метки нет (Все метки) Добрый Всем день. В базе много отчетов А4 и А6 форматов.При смене принтера все переходит в А4. Приходится все менять в ручную.Если есть лучший способ,буду рад помощи. 0

@жека3 14 / 0 / 0 Регистрация: 27.02.2011 Сообщений: 242
	01.04.2013, 14:19 [ТС]	2
	Можно ли программно указать формат отчета? 0

@Андрэич 2842 / 774 / 41 Регистрация: 20.05.2012 Сообщений: 2,055
	01.04.2013, 14:42	3
	Сообщение от жека3 В базе много отчетов А4 и А6 форматов.При смене принтера все переходит в А4. Вот здесь либо не понял вопрос, либо в моём понимании есть несостыковки или недопонимание Автора. Речь, видимо, идёт не о форматах, но о настройках параметров страницы при печати. Наверное, можно использовать вложенные отчёты. Читал, что есть известная проблема с разными принтерами. Это можно корректировать "программно-принудительно", в завис от подключаемого принтера и конечных данных, содержащихся в отчёте... 1

@жека3 14 / 0 / 0 Регистрация: 27.02.2011 Сообщений: 242
	01.04.2013, 15:11 [ТС]	4
	Да,о настройках параметров страницы при печати,только программным методом 0

@Андрэич 2842 / 774 / 41 Регистрация: 20.05.2012 Сообщений: 2,055
	01.04.2013, 16:29	5
	"Погуглите": или по Форуму, или в сети. Кажется, видел похожие обсуждения на Хайпрог или на Русимпорте... 1

@жека3 14 / 0 / 0 Регистрация: 27.02.2011 Сообщений: 242
	01.04.2013, 16:58 [ТС]	6
	А вот с этого можно что то слепить по короче Dim strReport As String Dim rpt As Report strReport = "Employees" 'Open the Report in Preview/Hidden Mode DoCmd.OpenReport strReport, View:=acViewPreview, WindowMode:=acHidden 'Retrieve the Paper Size set for the Report With Reports(strReport) With .Printer If .PaperSize = acPRPSA4 Then 'Paper Size is A4, now what... End If End With End With 0

@Андрэич 2842 / 774 / 41 Регистрация: 20.05.2012 Сообщений: 2,055
	01.04.2013, 17:03	7
	Вы пробуйте, а потом нам расскажете... Добавлено через 1 минуту Проще всего решить, наверное, на уровне Апи, но вы не сталкивались с этим? 1

@жека3 14 / 0 / 0 Регистрация: 27.02.2011 Сообщений: 242
	01.04.2013, 20:18 [ТС]	8
	конечно же буду пробовать Добавлено через 3 часа 1 минуту Вот так печатает А6 Dim strReport As String Dim rt As Report strReport = "proba" DoCmd.OpenReport strReport, acViewNormal With Reports(strReport) With .Printer .PaperSize = acPRPSEnvC6 End With End With 0

@minob 3544 / 1118 / 94 Регистрация: 13.03.2011 Сообщений: 1,513
	01.04.2013, 21:13	9
	Сообщение от жека3 Вот так печатает А6 Dim strReport As String Dim rt As Report strReport = "proba" DoCmd.OpenReport strReport, acViewNormal With Reports(strReport) With .Printer .PaperSize = acPRPSEnvC6 End With End With Так то оно так, но немножечко не так. (с) В миллиметрах размер листа формата A6 - 105 × 148, а размер листа формата C6 - 114 × 162. Если заглянуть сюда, то увидим, что acPRPSEnvC6_____31_____Envelope C6 (114 mm x 162 mm) 1

@жека3 14 / 0 / 0 Регистрация: 27.02.2011 Сообщений: 242
	01.04.2013, 23:41 [ТС]	10
	Спасибо за полезную ссылку.Дело в том ,что А6 как такового почему то нет.Конверт работает,а то что он немного больше роли особой не играет.Главное решен принцип выбора размера.Но еще есть загвоздка,не идет дальше msgbox,может чего посоветуете. Dim strReport As String Dim rt As Report strReport = "proba" DoCmd.OpenReport strReport, acViewNormal With Reports(strReport) With .Printer .PaperSize = acPRPSEnvC6 End With End With msgbox "" Добавлено через 41 минуту Вот так пошло Dim rp As Access.Report Dim pr As Access.Printer Set Application.Printer = Nothing Set pr = Application.Printer pr.PaperSize = acPRPSEnvC6 DoCmd.OpenReport "proba", acViewPreview Set rp = Reports("proba") Set rp.Printer = pr msgbox "" 0

	01.04.2013, 23:42

@minob 3544 / 1118 / 94 Регистрация: 13.03.2011 Сообщений: 1,513
	01.04.2013, 23:42	11
	Сообщение от жека3 Спасибо за полезную ссылку.Дело в том ,что А6 как такового почему то нет. Если использовать свойство PrtDevMode (см. Help), то можно задать размеры (длину и ширину) с точностью до 0,1 мм (так по крайней мере написано в справке). Сообщение от Help ... PaperSize Значение типа Integer, указывающее размеры листа бумаги при печати. Если этот компонент установлен равным 0 или 256, то длина и ширина листа указываются с помощью компонентов PaperLength и PaperWidth соответственно. В противном случае следует задать одно из стандартных значений. Список значений для компонента PaperSize содержится в разделе Значения компонента PaperSize. PaperLength Значение типа Integer, определяющее длину листа бумаги в условных единицах, равных 1/10 миллиметра. Для специальных размеров бумаги и устройств типа матричных принтеров, которые могут печатать на бумаге разных размеров, значение этого компонента имеет приоритет над значением длины листа, указанным в компоненте PaperSize. PaperWidth Значение типа Integer, определяющее ширину листа бумаги в условных единицах, равных 1/10 миллиметра. Значение этого компонента имеет приоритет над значением ширины листа, указанным в компоненте PaperSize. ... Сообщение от жека3 есть загвоздка,не идет дальше msgbox,может чего посоветуете. Насколько я помню, да и в справке есть пример, отчет в данном случае должен быть открыт в режиме конструктора (acDesign) и в конце процедуры закрыт с сохранением изменений. 1