#1
|
|||
|
|||
PDF-printout with automatic naming
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 |
#2
|
|||
|
|||
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 |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
Thread Tools | Search this Thread |
Display Modes | Rate This Thread |
|
|