PDA

View Full Version : PDF-printout with automatic naming


Joakim
11-27-2002, 05:17 AM
Hi,

when printing to the Destiller (File - Print...):
is there anyone who knows if it somehow is possible to skip the step where you have to name the pdf-file and get the drawing name automatically instead of ME10.pdf as default, like it does in for example Word, Excel etc?

cheers,

Joakim

bobwing
12-02-2002, 08:47 AM
The following macro with some mods might help:

DEFINE Save_pdf_nt
LOCAL Answer
LOCAL Draw_scale
LOCAL X_lower_left
LOCAL X_upper_right
LOCAL Drawing_size
LOCAL Angle_factor
LOCAL Pdffile
EDIT_PART TOP Tm_ruler_slash_grid_reset Tm_window_last Set_sys_plot_center
ON Set_sys_plot_source ALL Set_sys_plot_as_displayed 0
INQ_ENV 6
LET Angle_factor (INQ 3)
LET Draw_scale (1/(INQ 4))
INQ_ENV 7
LET X_lower_left (X_OF (INQ 101))
LET X_upper_right (X_OF (INQ 102))
LET Drawing_size ((X_upper_right/Draw_scale) - (X_lower_left/Draw_scale))
READ STRING 'Enter File Name of PDF file to be created' Pdffile
PURGE_FILE ('P:\alpha\tmp\'+Pdffile) CONFIRM
REQUEST_PRINT_SETUP OFF Set_sys_plot_configuration 'LaserJet 5000 PS'
Set_sys_plot_type 'Acrobat PDFWriter' Pdf_plot_color
Set_sys_plot_filename_prefix ('P:\alpha\tmp\'+Pdffile)
IF (Drawing_size<11.01)
WIN_PRT_MGR PAPER 'Letter' ORIENTATION LANDSCAPE COPIES 1
END
ELSE
WIN_PRT_MGR PAPER '11x17' ORIENTATION LANDSCAPE COPIES 1
END
END_IF
PLOT_SCALE AUTO Plot_start
REQUEST_PRINT_SETUP ON
PLOT_TRANSFORMATION RESET Reset_sys_plot_configuration
INPUT 'plotting_NT'
END_DEFINE