Печать Cartographic Legend

[Роман01]

Уважаемые форумчане!
Я создал Cartographic Legend (2 Frame). Но распечатывается на 2-х листах (на втором только рамка).
Как сделать, чтобы печаталось на одном листе? Где и какие настройки надо поменять?

С уважением, Роман.

[Boris]

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

[Роман01]

Вот окно и подпрограмма. Помогите, пожалуйста.

[thegeo]

М.б. стоит:
- свернуть окно до минимально необходимых размеров
- использование Interactive (в последней строке) излишне, т.к. все параметры печати заданы и диалог "Печать" не нужен.

[Роман01]

А разве в строке
Create Cartographic Legend From Window FrontWindow() Position (7, 0) Width 6 Height 5
Width 6 Height 5 - это не ограничения? Я и хотел, чтобы она была ограничена.

А как тогда свернуть окно до минимально необходимых размеров?

[juffin_h]

Да, это размер окна. И на А4 все должно уместится. Но окно у вас в режиме «полностью развернуто» и на картинке не виден его реальный размер (просто чтобы убедится).
Можно добавить строчку Set Window FrontWindow() Restore
Может в настройках принтера что то?
Как на первом листе распечатки размещено изображение? Заполнен весь лист?

[Роман01]

На A4 не поместилось всё. Restore уменьшил окно до минимума и так распечатал мелко.
Настройки принтера? А что там может быть?
На первом листе было всё, кроме рамки. В том то и всё дело - в рамке. Помогите, пожалуйста, как поместить на один лист.

[juffin_h]

Размер окна (Width 6 Height 5) по умолчанию в дюймах. Может у Вас сантиметры?
Попробуйте Width 6 Height 5 Units “in” Чтобы гарантировано были дюймы.

Настройки принтера? А что там может быть?

Установки полей и масштаба например.

Может пример данных выложите, чтоб поэкспериментировать. Так было бы проще разобраться.

[thegeo]

Более подробно.
Свернуть окно. Как это выглядит и как взаимосвязано показано на рисунках. Размеры и масштабы можно варьировать по необходимости.
Печать выполнялась следующим кодом:

Sub Main
Set Window FrontWindow() Printer Default
PrintWin Window FrontWindow()
end sub

[Роман01]

Уважаемый thegeo !
Я вставил строки
Sub Main
Set Window FrontWindow() Printer Default
Create Cartographic Legend From Window FrontWindow() Position (7, 0) Width 6 Height 5 Units "in"
...
PrintWin Window FrontWindow()
end sub

Но у меня также печатается на 2-х листах... (скриншот окна)
Что еще нужно доисправлять?

[Роман01]

А может быть как-то влияет то, что вначале у меня стоит
Set Window FrontWindow()
Create Cartographic Legend From Window FrontWindow() Position (6, 0) Width 6 Height 5 Units "in"
Window Title "Данные колодца!" Portrait
...

а в конце подпрограммы стоит
Set Window FrontWindow() Printer Name WindowInfo(FrontWindow(),WIN_INFO_PRINTER_NAME)
Orientation Portrait Copies 1 Papersize 9
PrintWin Window FrontWindow() Interactive
?

[juffin_h]

Покажите, что у Вас получается на бумаге. Все должно быть как показал thegeo.
1й вариант — окно развернуто, второй — нормальный размер (Restore).

Restore уменьшил окно до минимума и так распечатал мелко

Распечатал на 2х листах? Что значит мелко? Размер рамки д.б. 6Х5 дюймов.
Размер шрифта соответствует заданному в программе?

[Роман01]

Размер шрифта соответствует. Image-14 -1-й лист, Image-15 - 2-й лист, ДанныеКолодца - c Restore.

[juffin_h]

Все должно работать.
Немного изменил высоту, так как легенда не помещалась
Create Cartographic Legend From Window FrontWindow() Position (7, 0) Width 5 Height 6.5
и привел окно к нормальному виду
Set Window FrontWindow() Restore Printer Name WindowInfo(FrontWindow(),WIN_INFO_PRINTER_NAME)

Выглядит так.

Окно MapInfo

MI.png (54.65 КБ) 9997 просмотров

На печати

Paper.png (35.74 КБ) 9997 просмотров

Вы этого добивались?

[Роман01]

Да, огромное спасибо!