I have the following code generated by AS and modified to loop through a group of records and print a pdf for each. I am getting a dialog on each showing the file name and path. I want this to run silent, but do not see an option for that in report.saveas(). I did a search and am not seeing anything that addresses this.
Does anyone know how to make this run silent?
The dialog is attached.
Thanks in advance,
Russ
Does anyone know how to make this run silent?
The dialog is attached.
Thanks in advance,
Russ
Code:
delete PrintOptions DIM PrintOptions as P With PrintOptions .Concatenate = .f. .HasWatermark = .f. .MultilingualSupport = .f. .EmbedFonts = .f. .LinearizeForWeb = .f. .Colors2GrayScale = .t. .ConvertHyperlinks = .f. .WatermarkType = "Text" .WatermarkText = "D R A F T" .WatermarkFontName = "Times New Roman" .WatermarkFontSize = 172 .WatermarkRotation = 450 .WatermarkColorHex = "E8FED2" .WatermarkHorizPos = 120 .WatermarkVertPos = -120 .WatermarkOnTop = .f. .WatermarkPDF = "" .Encrypt = .f. .OwnerPassword = "" .UserPassword = "" .CanPrint = .t. .CanModifyDocument = .t. .CanCopy = .t. .CanAddNotes = .t. .Use128BitKey = .f. .JpegQuality = "Low" End with query.filter = "Vend_Mark->Rec_cnt = Var->vnFax_Nbr" '"recno() = Var->vnQot_Vnd_No" query.order = "" ':Report.SaveAs("Vend_Mark_Set_Qot","PDF",query.filter,query.order,var->vcPrint_Path,.F.,PrintOptions) :Report.SaveAs("Vend_Mark_Set_Qot","PDF",query.filter,query.order,alltrim(vcFax_Path)+"\\"+alltrim(var->vcPrint_File_Name))
Comment