Here is a script that works in VectorWorks 2008. I wrote it 10 years ago, but it still works. It date stamps the drawing then issues the print command. Create a command and install it in the File menu. I reassigned Command-P to it in place of the regular Print command.
It needs and existing text block on the drawing (named "date stamp"). I have it on my standard title block along the binding edge. It stamps the drawing with (Day, Date, Time, File Name, VectorWorks version). Try it out.
Procedure DateStampPrintDL;
LABEL 99;
VAR
dateFormat, infoFormat, vMaj, vMin, vMai, vPlat : INTEGER;
textH : HANDLE;
dateValue, docName, compPlatform, stampString : STRING;
PrintYes : BOOLEAN;
BEGIN
textH := GetObject('Date Stamp');
IF textH = NIL THEN
BEGIN
Sysbeep;
PrintYes := YNDialog('The text block named "Date Stamp" is missing from this drawing ? PRINT IT ANYWAY ?');
IF PrintYes = False THEN GOTO 99;
END;
dateformat := 0; {0=Full, 1=Abbrev, 2=Short}
infoformat := 1; {0=Date, 1=Date & Time, 2=Time}
dateValue := Date(dateFormat, infoFormat);
docName := GetFName;
GetVersion(vMaj, vMin, vMai, vPlat);
IF vPlat = 1 THEN
compPlatform := 'Macintosh'
ELSE
compPlatform := 'Windows';
stampString := Concat(dateValue,' ? File: ',docName,' ? Drawing prepared with VectorWorks-', vMaj, '.', vMin, '.', vMai, ' for ', compPlatform);
SetText(textH, stampString);
DoMenuTextByName('Print',0);
99: END;
RUN ( DateStampPrintDL);