pdf prints differently on web than desktop

[eboughey1]

Withi the pdf option for the WAS, a report I created ends up with a blank 2nd page, and if I choose multiple workorders, the report shifts down for some reason. It looks okay in the preview under desktop but does the same thing when I click on the Adobe conversion icon.

It also prints in the same page and my client wants it to open in a new window. It is a dialog that I print from on this.

It's set up as a portrait letter size...

Here is the login information for the site. If someone could please have a look. You would click on 'Print Production Workorders' to find the above. There are a few other things to look at but not much will be available with this username.

user: alphauser
pass: temp123

[Peter.Greulich]

Re: pdf prints differently on web than desktop

?

[eboughey1]

Re: pdf prints differently on web than desktop

right. I guess it would help to give you the web address eh?

www.mailtimenet.com

user: alphauser
pass: temp123

[Peter.Greulich]

Re: pdf prints differently on web than desktop

If you preview your reports w/o converting to PDF, do you get the same effect?

[eboughey1]

Re: pdf prints differently on web than desktop

They look fine if I print straight to the printer. It's something about the PDF setup I believe. I take that back. The single ones print on one page. The multiple workorders still move.

[NoeticCC]

Re: pdf prints differently on web than desktop

I think you need to configure the printer on the WAS, if the web server app runs as the system user then the print settings and default printer may be different than on your development PC or even (if you develop on the server) than in the Windows profile you publish from.

[Steve Wood]

Re: pdf prints differently on web than desktop

Note - you have the logout.a5w as a requires login. So whenever someone logs out, the login page goes instantly restricted, kicking the user to the login page but also causing the URL to look like this:

http://www.mailtimenet.com/index.a5w?np=%2Flogout%2Ea5w

That means as soon as someone logs back in, they will be redirected to the LOGOUT page and be logged out in a never ending cycle.

The logout page should be always available.

Very attractive, easy to navigate website!

[Peter.Greulich]

Re: pdf prints differently on web than desktop

Very attractive, easy to navigate website!

Yeah, I agree. Very nice report formats, as well.

[peteconway]

Re: pdf prints differently on web than desktop

Nice reports.


Got this error on the spread sheet option.
Error in event handler code for OnClick event for 'Excel_Export': Error loading [PathAlias.ADB_Name]\workorder: The system cannot find the path specified.
[PathAlias.ADB_Name]\workorder.DBF


Out of interest -what is the server configuration.

Also you do need to set the server (WAS) printer settings, there are also several settings you can force the pdf to do like embed fonts, watermark etc. I put them on this board some time ago, take a search and the will pop up.

Cheers,

Peter

[peteconway]

Re: pdf prints differently on web than desktop

Here you go.

delete PrintOptions
DIM PrintOptions as P
With PrintOptions
         .Concatenate = .f.
         .HasWatermark = .t.
         .MultilingualSupport = .f.
         .EmbedFonts = .t.
         .LinearizeForWeb = .f.
         .Colors2GrayScale = .f.
         .ConvertHyperlinks = .f.
         .WatermarkType = "Text"
         .WatermarkText = "i G r o u p"
         .WatermarkFontName = "Times New Roman"
         .WatermarkFontSize = 200
         .WatermarkRotation = 450
         .WatermarkColorHex = "E8FED2"
         .WatermarkHorizPos = 120
         .WatermarkVertPos = +40
         .WatermarkOnTop = .f.
         .WatermarkPDF = ""
        .Encrypt = .f.
         .OwnerPassword = ""
         .UserPassword = ""
        .CanPrint = .t.
         .CanModifyDocument = .t.
        .CanCopy = .t.
         .CanAddNotes = .t.
         .Use128BitKey = .f.
         .JpegQuality = "Low"

End with
'query.filter = ""
'query.order = ""




Dim filename as c 
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas("JobBagBasicA4-4@[PathAlias.ADB_Path]\jobregister.ddd","pdf",filter,order,filename,.f.,PrintOptions)
if file.exists(filename) 
	currentform.RedirectTarget = session.session_url + "tempreport.pdf?" +  time("hms3")
end if 	
skipreport:

[eboughey1]

Re: pdf prints differently on web than desktop

Thanks for all the great feedback. I've worked pretty hard trying to make it easy to navigate and use. I know the excel doesn't work yet. I haven't fixed it, just moved it out there.

I'm just using an old computer that was laying around doing nothing and added the application server software on it. I have 5 ip addresses from my isp and plugged it right into the cable modem. I was going to try and set up a virtual server, but alas, it is a pain in the butt to mix Apache and Alpha Application Server on one computer and I don't really need it yet.

I did add your code in but nothing happened Pete. Maybe I didn't do it right. I put it in the aftervalidate before all of the code where it pulls the report.

Here's the code I need to use it with:

(Multiple Work Order Creation)

aftervalidate

dim filter as C
dim order as C
dim jobnum as C
dim filename as C
'since JobNumber is a multi-select DropDownBox, it is actually an array that contains the selected values.
jobnum = JobNumber.dump()
jobnum = remove_blank_lines(jobnum)
jobnum = *for_each(x,"clientjobn = " + quote(x),jobnum)
filter = stritran(alltrim(jobnum), crlf()," .or. ")
Order = "invert(Newjobno)"
filename = session.session_folder + chr(92) + "tempreport.pdf"
filename = report.saveas("production-wo@[PathAlias.ADB_Path]\workorder.set.set","pdf",filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + rand_string(5)
end if
skipreport:

(Weekly Schedule or Production Work Order)

activate:
dim report as c
report = <<%text%
weeklyschedule|weeklyschedule@[PathAlias.ADB_Path]\workorder set.set
production-wo|production-wo@[PathAlias.ADB_Path]\workorder set.set
%text%

aftervalidate

delete PrintOptions
DIM PrintOptions as P
With PrintOptions
.Concatenate = .f.
.HasWatermark = .t.
.MultilingualSupport = .f.
.EmbedFonts = .t.
.LinearizeForWeb = .f.
.Colors2GrayScale = .f.
.ConvertHyperlinks = .f.
.WatermarkType = "Text"
.WatermarkText = "i G r o u p"
.WatermarkFontName = "Times New Roman"
.WatermarkFontSize = 200
.WatermarkRotation = 450
.WatermarkColorHex = "E8FED2"
.WatermarkHorizPos = 120
.WatermarkVertPos = +40
.WatermarkOnTop = .f.
.WatermarkPDF = ""
.Encrypt = .f.
.OwnerPassword = ""
.UserPassword = ""
.CanPrint = .t.
.CanModifyDocument = .t.
.CanCopy = .t.
.CanAddNotes = .t.
.Use128BitKey = .f.
.JpegQuality = "Low"

End with
'query.filter = ""
'query.order = ""


jobno = alltrim(CurrentForm.Controls.ContactList)
report = alltrim(CurrentForm.Controls.ReportList)

if CurrentForm.Controls.ContactType = "1" then
dim filter as c
dim order as c
Filter = ".T."
Order = ""
Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas(report,"pdf",filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if
else
IF eval_valid("jobno") = .f. Then
goto skipreport
end if
dim filter as c
dim order as c
Filter = "Clientjobn = \""+jobno+"\""
Order = ""
Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas(report,"pdf",filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if
skipreport:
end if

[peteconway]

Re: pdf prints differently on web than desktop

I'll look at it again tomorrow.

Don't get confused the "the application server" needs to have the alpha printer RUNNING

Look Under File in you main menu. Is there a "printer setup" - it might not be, as alpha does not do this when you install. if it's not there...

look in your windows programs folder
look for your alphafive it may be a5v9 folder
look for a file called "InstallAmyuniPrinters"
click it and install.
now when you go back to the file on the main menu it will be there.

now try your code.

remember to work the system printer must be set in alpha.

jobno = alltrim(CurrentForm.Controls.ContactList)
report = alltrim(CurrentForm.Controls.ReportList)

delete PrintOptions
DIM PrintOptions as P
With PrintOptions
.Concatenate = .f.
.HasWatermark = .t.
.MultilingualSupport = .f.
.EmbedFonts = .t.
.LinearizeForWeb = .f.
.Colors2GrayScale = .f.
.ConvertHyperlinks = .f.
.WatermarkType = "Text"
.WatermarkText = "My WaterMark"
.WatermarkFontName = "Times New Roman"
.WatermarkFontSize = 200
.WatermarkRotation = 450
.WatermarkColorHex = "E8FED2"
.WatermarkHorizPos = 120
.WatermarkVertPos = +40
.WatermarkOnTop = .f.
.WatermarkPDF = ""
.Encrypt = .f.
.OwnerPassword = ""
.UserPassword = ""
.CanPrint = .t.
.CanModifyDocument = .t.
.CanCopy = .t.
.CanAddNotes = .t.
.Use128BitKey = .f.
.JpegQuality = "Low"
End with


if CurrentForm.Controls.ContactType = "1" then
dim filter as c 
dim order as c 
Filter = ".T."
Order = ""
Dim filename as c 
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas(report,"pdf",filter,order,filename,.f.)
if file.exists(filename) 
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if 
else
IF eval_valid("jobno") = .f. Then
goto skipreport
end if 
dim filter as c 
dim order as c 
Filter = "Clientjobn = \""+jobno+"\""
Order = ""
Dim filename as c 
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas(report,"pdf",filter,order,filename,.f.)
if file.exists(filename) 
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if 
skipreport:
end if

[eboughey1]

Re: pdf prints differently on web than desktop

Well I figured out what caused the issue.

It was the printer, but it was something I haven't seen before and it was in the report band properties.

Under Report/Properties/Band/Report Properties/Page

I looked again at the page layout settings to make sure it was set to letter. It was empty and nothing showed up on the drop down. I couldn't fix it as long as I had the alpha five printer selected. I changed it to my local printer and it let me change the settings to letter. I saved the report then went back in and changed the printer back to Alpha Five. After that it showed the page layout properly.

Also, I had to set the report to use a Page header instead of a report header since they can choose multiple workorders to print.

So now that all works. Guess what? All of my boxes are gone that frame the fields for the winning # and instruction memo fields (unless they are populated). I haven't changed any of them but something I did obviously made it change. Has anyone seen that happen?