IMovie 10.0.3 fonts underline
Dear all,
I can't edit my fonts with underline. Anyone can help me?
When I add title in my movie, such as, Today is fine. I edit like this "Today is fine". But i preview the clip. The underline editing is invisible.
Many thanks!
Lou
Thank you!
iMovie 9 works.
I don't see QuickTime X in applicaitons. Only yhr player. And I have OS X 10.9.2.
Canot find download locaiton on Apple's web site either.
Hmmm.
Similar Messages
-
IMovie OS X Mavericks Font Colour
Since the OS X Mavericks update, I am really struggling and wondering how it is possible to change font colours of the titles in the new iMovie? I'd like to put some of the titles on a white background, but the font is in white so it doesnt work very well
There seems to be a font editing panel - but all the options are 'greyed' out
Any help would be much appreciated.
Thanks!This issue looks like it only happens when the paper size is set to A4. If I select US Letter the preview is fine and doesn't split the content.
-
IMOVIE issue with blurred fonts on title screens
Hoping someone knows a reason why a newly created title that appears fine (readable fonts) in the preview pane is blurred when viewing full screen option? pitch is set at 48 - marker felt font with outline option - Use to work fine -
Can you try to convert the EPS in the Distiller to a PDF file, but make sure that
you have not used any false style on the first place in the file,
that all used fonts and styles are installed on the computer,
that the file and the licence is allowing you to embed the font into a PDF and
that you make a Distiller Joboption which will embed completely all used fonts, or at least all used glyphs. -
IMovie '06 chapter url font color
when making some movies i am adding url's into the chapter markers. when i play it back the font color is always blue font color against black. which makes it hard to read. how do i change this to white ?
Hi
Don't think it's possibly. The blue color is from some general program-code and appears in lot's
of applications.
If one could make it undetectably - eg mixing in invisible control letters may be this program
would miss to track it as an www address. BUT then it wouldn't be click-able either.
Can you change the backgroud so that the contrast would be better ?
One can in some cases hide the url under a photo with the text in a desired color BUT I don't
think that either is a possible way here.
Sorry. Never seen it working here.
Yours Bengt W -
I do not see a tool bar on my webmail through MicroSoft Exchange. Therefore, I cannot use bullet points, italics, etc...in my mail. If this is not a feature through FF, then I will go back to using IE
In Firefox Options / Privacy be sure "Remember download history" is checked. To see all of the options on that panel, "Firefox will" must be set to "Use custom settings for history".
To find your OS information, on your Windows desktop, right-click the My Computer icon, choose Properties, under System on that small window is info about your OS.
'''If this reply solves your problem, please click "Solved It" next to this reply when <u>signed-in</u> to the forum.''' -
Upload Fonts to iMovie HD? (Flameth me not!)
Hi all! ~ I want to add new fonts to iMovie HD (5.0.2) but can't locate the font suitcase for iMovie. Location, anyone?
I checked the archive, and indeed found this very issue addressed, HOWEVER - I can't find the relevant font folder that iMovie accesses. The answer to the previous query was simple: "Like you do with fonts for any other program."
I ran a search for all font folders, and placed the new font in each folder to no avail. Does iMovie have its own font suitcase? If so, where, pray tell, does it lie? I've googled and googled for this info and found zilch, beyond the aforementioned, distressingly Microsoftian response.
Any help here is much appreciated!
Chris ~
Powermac G4/dual 1-GHz/silver Door Mac OS X (10.3.9)Hi Chris:
Although Sir David has properly answered your question, I thought you'd like this;
http://www.freemacfonts.com/
It's pretty awesome!
Sue -
Linked files and underlined text confusion
I'm running into some unexplained and strange behaviors in a simple Web page I just put up. The URL is http://www.elliottbaypipeband.com/Chunes/EBPBMusic/2011Music.html
Problem 1:
I've linked PDF files to text that describes the tune names. These links work fine. I've also linked "EP3" files to the little note icon that precedes the tune name. These links don't work. The different browsers report the linked file isn't found.
Problem 2:
There are four text containers on the page. The first line of text in the first one "Tunes of Glory", is displayed correctly without any underlining. The first line of text in the other three "Concert Music", "Competition Music", and "Legend" are all underlined. Similarly, all of the text in the Legend text container are underlined when viewed in a browser. Only the Comments one should be as it is linked to an email address.
I can't figure out these problems. Any ideas from the experts?
ThanksI think I have sorted out these problems.
The EP3 linked file problem was a a file type not explicitly allowed on the Web server I was using. I can fix that.
I worked-around the odd font underlining by using a subtle shadow setting. Now the page looks like I want it to at lease in Safari. It seems that there are a number of quirks like this in iWeb. That's a little disappointing but certainly not a show stopper and not surprising. Software always has quirks. -
I'm not sure if this is possible or not, but when I add a centred title with two lines, iMovie automatically makes the font size of the first line larger than that of the second line. Ideally, I'd like this to be the other way around, so that in my credits list, the name of the actor is larger than the part they played. At the very least, can I get both lines to be the same size?
Many thanks.Hello Marknian,
there are several ways to work around this problem:
• get a third party title-plugin. To my knowlwdge the only plugins that run on Intel Macs are the ones from Gee Three
• Instead of putting the name of the actor in the upper line, then write "as the gardener" or similar in the lower line - that way the name of the actor comes first, which is good for their ego
• create to separate titles. First create a black clip of suitable length, then drag the title (upper line) with the desired font size on it. Next delete the upper line, write in the lower one, then increase the fontsize. Drag onto the first title. If you tweak a little, you can even make one line appear before the other, getting a nice professional effect.
hope this helps
mish -
How to programmically change all fonts in Crystal Reports using VS2005
Post Author: KonRi
CA Forum: .NET
I want to change all fonts in my rpt files from Arial to Tahoma. I have:
ReportDocument report;
raport.Load(fInfos[i].FullName);
if (report.IsLoaded) ChangeFont(report, path);
... private void ChangeFont(ReportDocument oReport, string path) { foreach (CrystalDecisions.CrystalReports.Engine.Section crSection in oReport.ReportDefinition.Sections) { foreach (CrystalDecisions.CrystalReports.Engine.ReportObject crObject in crSection.ReportObjects) { FontStyle fStyle = FontStyle.Regular; if (crObject.Kind == ReportObjectKind.TextObject) { CrystalDecisions.CrystalReports.Engine.TextObject text = (CrystalDecisions.CrystalReports.Engine.TextObject)crObject; if(text!=null) { if (text.Font.Bold) fStyle = fStyle | FontStyle.Bold; if (text.Font.Italic) fStyle = fStyle | FontStyle.Italic; if (text.Font.Underline) fStyle = fStyle | FontStyle.Underline; if (text.Font.Strikeout) fStyle = fStyle | FontStyle.Strikeout; text.ApplyFont(new Font("Tahoma", text.Font.Size,fStyle)); } } else if (crObject.Kind == ReportObjectKind.FieldObject) { ... the same } else if (crObject.Kind == ReportObjectKind.FieldHeadingObject) { ... the same } else if (crObject.Kind == ReportObjectKind.SubreportObject) { CrystalDecisions.CrystalReports.Engine.SubreportObject crSubReport = (CrystalDecisions.CrystalReports.Engine.SubreportObject)crObject; ReportDocument crSubDoc = crSubReport.OpenSubreport(crSubReport.SubreportName); ChangeFont(crSubDoc,path); } } } if (!oReport.IsSubreport) oReport.SaveAs(path); }
This works fine but when TextObject has Embedded Fields those Fields aren't change and still have Arial font.My question is: how to change font in whole rpt file, including Embedded Fields?? RegardsKonRiIs there any update on this ? I am facing the same problem.
Thanks -
Is there anyway of removing the underline when creating email address and web address?
If you don't make them links, yes.
Turn off auto-links in Preferences or individually in the Links Inspector.
If you want the link, but not the underline:
+Menu > Format > Font > Show Fonts > Underline button on Toolbar > None+
Peter -
I am working with a table & I want some items underlined & others not. As soon as I underlined the text in one cell, all text in cells below are automatically underlined! I have hi-lighted & removed the underline using Cmd-U or Format/Font/Underline & it removes the underline as I wish-- until I leave that cell. Then the underline reappears.
Please advise, thanks.You gave me a clue. I recreated your test on a new pages column & I could not recreate the underline problem either.
On my problem Table, I didn’t intentionally select the entire column or portion of the column. But the bottom half of my “C” column was staying underlined. So, I deliberately selected the portion of the column that was incorrectly underlined & I used Cmd-U & it Worked! It is not underlined & stays not underlined.
Thanks,
Steve
Message was edited by: growler62000 -
Internal table in adobe print forms
hi there,
in my WDA-application i use adobe print forms for output.
i use a table for displaying an internal abap-table.
in the formular-hierarchy it looks like this:
table2
--> line1
--> cell1
--> cell2
--> cell3
my problem is that i am a complete newbie in scripting in print forms.
here is what i want to do:
if cell1 = 'X' then the text in cell2 has to be bold or underlined.
Can someone provide me with a code-example either in javascript or formclac???
thx
Davidthx for answering.
first i tried the following code:
data.T1.Tabelle2::ready:form - (JavaScript, Client) -
this.Zeile1.Zelle2.font.weight = "bold";
this.Zeile1.Zelle2.font.underline = "1";
the result is, that cell2 is bold and underlined but only the first row of the table. i want all cell2 in all rows bold and underlined.
then i tried this:
data.T1.Tabelle2::ready:form - (JavaScript, Client) -
if(this.Zeile1.Zelle1.rawValue == "01"
this.Zeile1.Zelle2.font.weight = "bold";
this.Zeile1.Zelle2.font.underline = "1";
nothing happens and i dont understand why. The visible value in Zelle1 is "01"! -
Excel 2010 Synchronize List with SharePoint List using VBA
I have used and loved the interaction between Excel and SharePoint for many generations of both solutions. It's a wonderful opportunity to integrate the familiarity and simplicity of Excel (formatting, ease of use, availability) with the data storage
and centralized list capabilities of SharePoint. Right?
When upgrading to Excel 2010, I have noticed with much dismay that much of the inherent easy to use features of previous versions were effectively stripped from this newest version. Much research, time and energy has been spent working around and resolving
the deficiency. One Microsoft based article,
http://support.microsoft.com/kb/930006, has provided the mechanics behind utilizing the "hidden" functionality... although, this capability to use VBA to create the synchronized list was available in previous versions. However, once Microsoft
published this article to this "hidden" functionality... I feel that the behavior should be supported by Microsoft in some way. OK?
Revised instructions to reproduce the problem:
1. Create a SharePoint list with 20 dummy records.
- Note the List Name ##LIST_NAME##
- Note the View GUID ##VIEW_GUID##
- Note SharePoint Base URL ##BASE_URL##
2. REVISED... In Excel 2010, save the file as Compatible "Excel 97-2003 Workbook". Close the file and reopen. Create a connected table (ListObject) in Excel using the article above to the SharePoint list. Use Sample VBA code
below:
Sub LinkedSharePointList()
ActiveSheet.ListObjects.Add SourceType:=xlSrcExternal,_
Source:=Array(##BASE_URL## & "/_vti_bin", ##LIST_NAME##, _
##VIEW_GUID##), LinkSource:=True, Destination:=Range("A1")
End Sub
3. OOPS REVISED this item. The problem is actually with ROW 21... So, update record on row 21... (no matter where the table is located... (if the "Destination" is "A1", then the problem is with ID=20, but if the Table is
shifted down to say A12, then ID=9 on row 21). Anyway... make a simple change to that record... and you'll see the ID immediately change.... as if it's a NEW record. WEIRD! Note: If the sheet is protected, then an error is displayed
indicating that a "read-only" record cannot be updated (referring to the ID cell in column A for the current row).
4. Now "synchronize" the list with excel. The former record is still in the list unchanged AND there is a NEW record in the list holding the changes. There are a number of problems that seem to ONLY occur when something changes to ROW
21.... Next, try to copy/paste multiple records across multiple rows that intersect with ROW 21. Yikes!!
I look forward to hearing others' experience!
Thanks!
MarkHere are some things that you can try (change the code, where appropriate):
Private Sub CreateList()
Dim folder As folder
Dim f As File
Dim fs As New FileSystemObject
Dim RowCtr As Integer
RowCtr = 1
Set folder = fs.GetFolder("http://excel-pc:43231/Shared Documents/Forms/") '<=Variable Location
For Each f In folder.Files
Cells(RowCtr, 1).Value = f.Name
RowCtr = RowCtr + 1
Next f
End Sub
Sub ListAllFile()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim pth As String
Dim WBn As Workbook
Dim ObCount As Long
Dim FileNme As String
Application.ScreenUpdating = False
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object associated with the directory
Set objFolder = objFSO.GetFolder("\\excel-pc:43231\Shared Documents\Forms\")
'** You'll need to specify your path here. By removing the http: from the path, the code liked it & found the folder. It wasn’t working previously ***
pth = "http://excel-pc:43231/Shared Documents/Forms/"
'** You'll need to specify your path here. The reason I’ve done this separately is because the path is not recognised otherwise when trying to specify it with workbook.open & using the value set for objFolder **
ObCount = objFolder.Files.Count
'** counts the number of files in the folder
'Loop through the Files collection
For Each objFile In objFolder.Files
Nm1 = Len("http://excel-pc:43231/Shared Documents/Forms/")
'** You'll need to specify your path here **
Nm2 = Len(objFile) - Nm1
FileNme = Right(objFile, Nm2)
'** I’ve done this part to find out/set the file name**
Set WBn = Workbooks.Open(pth & FileNme, , , , Password:="YourPassword")
'** opens the first file in the library – if there is no password, the remove everything from - , , , , Password:="Password1" – leaving the close bracket ‘)’
Application.ScreenUpdating = False
'** optional – you can leave the screen updating on
'<< Your coding here>>
'** The file is now open. Enter whatever code is specific to your spreadsheets.
Next
'** goes to next file within your sharepoint folder
End Sub
Sub SharePoint()
Dim xlFile As String, xlFullFile As String
Dim xlApp As Excel.Application
Dim wb As Workbook
xlFile = "\\excel-pc:43231\Shared Documents"
'http://excel-pc:43231/Shared Documents/
'****----denotes the path.(i.e) u give the path as windows search.Don't use "\" at the end.
'In the sharepoint path %20 denotes space.so u remove that and use space .
Set xlApp = New Excel.Application
xlApp.Visible = True
xlFullFile = GetFullFileName(xlFile, "Book") 'ANZ denotes starting characters of the file.
xlFile = xlFile & "\" & xlFullFile
Set wb = xlApp.Workbooks.Open(xlFile, , False)
'Once the workbook is opened u can do ur code here
wb.Close False
End Sub
Function GetFullFileName(strfilepath As String, _
strFileNamePartial As String) As String
Dim objFS As Variant
Dim objFolder As Variant
Dim objFile As Variant
Dim intLengthOfPartialName As Integer
Dim strfilenamefull As String
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(strfilepath)
'work out how long the partial file name is
intLengthOfPartialName = Len(strFileNamePartial)
For Each objFile In objFolder.Files 'Instead of specifying the starting characters of the file you can directly loop through all files in the folder .
'Test to see if the file matches the partial file name
If Left(objFile.Name, intLengthOfPartialName) = strFileNamePartial Then
'get the full file name
strfilenamefull = objFile.Name
Exit For
Else
End If
Next objFile
Set objFolder = Nothing
Set objFS = Nothing
'Return the full file name as the function's value
GetFullFileName = strfilenamefull
End Function
Sub SrchForFiles()
' Searches the selected folders and sub folders for files with the specified (xls) extension.
'ListTheFiles 'get the list of all the target XLS files on the SharePoint Directory
Dim i As Long, z As Long, Rw As Long, ii As Long
Dim ws As Worksheet, dd As Worksheet
Dim y As Variant
Dim fldr As String, fil As String, FPath As String
Dim LocName As String
Dim FString As String
Dim SummaryWB As Workbook
Dim SummaryWS As Worksheet
Dim Raw_WS As Worksheet
Dim LastRow As Long, FirstRow As Long, RowsOfData As Long
Dim UseData As Boolean
Dim FirstBlankRow As Long
'grab current location for later reference, for where to paste final data
Set SummaryWB = Application.ActiveWorkbook
Set SummaryWS = Application.ActiveWorkbook.ActiveSheet
y = "xls"
fldr = "\\excel-pc:43231\Shared%20Documents\Forms\AllItems.aspx"
FirstBlankRow = 2
'asd is a 1-D array of files returned
asd = ListFiles(fldr, True)
Set ws = Excel.ThisWorkbook.Worksheets(1) 'list of files
ws.Activate
ws.Range("A1:Z100").Select
Selection.Clear
On Error GoTo 0
For ii = LBound(asd) To UBound(asd)
Debug.Print Dir(asd(ii))
fil = asd(ii)
'open the file and grab the data
Application.Workbooks.Open (fil), False, True
'Get file path from file name
FPath = Left(fil, Len(fil) - Len(Split(fil, "\")(UBound(Split(fil, "\")))) - 1)
'Get file information
If Left$(fil, 1) = Left$(fldr, 1) Then
If CBool(Len(Dir(fil))) Then
z = z + 1
ws.Cells(z + 1, 1).Resize(, 6) = _
Array(Dir(fil), LocName, RowsOfData, Round((FileLen(fil) / 1000), 0), FileDateTime(fil), FPath)
DoEvents
With ws
.Hyperlinks.Add .Range("A" & CStr(z + 1)), fil
'.FoundFiles(i)
End With
End If
End If
'Workbooks.Close 'Fil
Application.CutCopyMode = False 'Clear Clipboard
Workbooks(Dir(fil)).Close SaveChanges:=False
Next ii
With ws
Rw = .Cells.Rows.Count
With .[A1:F1]
.Value = [{"Full Name","Location","Rows of Data","Kilobytes","Last Modified", "Path"}]
.Font.Underline = xlUnderlineStyleSingle
.EntireColumn.AutoFit
.HorizontalAlignment = xlCenter
End With
.[G1:IV1 ].EntireColumn.Hidden = True
On Error Resume Next
'Range(Cells(Rw, "A").End(3)(2), Cells(Rw, "A")).EntireRow.Hidden = True
Range(.[A2 ], Cells(Rw, "C")).Sort [A2 ], xlAscending, Header:=xlNo
End With
End Sub
Function ListFiles(ByVal Path As String, Optional ByVal NestedDirs As Boolean) _
As String()
Dim fso As New Scripting.FileSystemObject
Dim fld As Scripting.folder
Dim fileList As String
' get the starting folder
Set fld = fso.GetFolder(Path)
' let the private subroutine do all the work
fileList = ListFilesPriv(fld, NestedDirs)
' (the first element will be a null string unless the first ";" is removed)
fileList = Right(fileList, Len(fileList) - 1)
' convert to a string array
ListFiles = Split(fileList, ";")
End Function
' private procedure that returns a file list
' as a comma-delimited list of files
Function ListFilesPriv(ByVal fld As Scripting.folder, _
ByVal NestedDirs As Boolean) As String
Dim fil As Scripting.File
Dim subfld As Scripting.folder
' list all the files in this directory
For Each fil In fld.Files
'If UCase(Left(Dir(fil), 5)) = "MULTI" And fil.Type = "Microsoft Excel Worksheet" Then
If fil.Type = "Microsoft Excel Worksheet" Then
ListFilesPriv = ListFilesPriv & ";" & fil.Path
Debug.Print fil.Path
End If
Next
' if requested, search also subdirectories
If NestedDirs Then
For Each subfld In fld.SubFolders
ListFilesPriv = ListFilesPriv & ListFilesPriv(subfld, NestedDirs)
Next
End If
End Function
Finally . . .
Sub ListFiles()
Dim folder As Variant
Dim f As File
Dim fs As New FileSystemObject
Dim RowCtr As Integer
Dim FPath As String
Dim wb As Workbook
RowCtr = 1
FPath = "http://excel-pc:43231/Shared Documents"
For Each f In FPath
'Set folder = fs.GetFolder("C:\Users\Excel\Desktop\Ryan_Folder")
'For Each f In folder.Files
Cells(RowCtr, 1).Value = f.Name
RowCtr = RowCtr + 1
Next f
End Sub
Sub test()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Users\Excel\Desktop\Ryan_Folder")
'Set colSubfolders = objFolder.SubFolders
'For Each objSubfolder In colSubfolders
Cells(RowCtr, 1).Value = f.Name
RowCtr = RowCtr + 1
'Next
End Sub
Ryan Shuell -
Maintain DataGridView Format when exporting to Excel(C#)
I have a DataGridView which has a few rows in Red Color, Blue Color etc. A few cells are also in bolded font. I need to export DataGridView with this exact formatting to an excel sheet.
I am using Office Interop for exporting now.
Also I need to export the grid with the ability to modify the start cell for exporting. For example, I would like to export the grid in such a manner that the first cell is B7 and not A1.
Request help urgently.
Thanks.Try code below. It is a C# Form project.
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using Excel = Microsoft.Office.Interop.Excel;
namespace WindowsFormsApplication1
public partial class Form1 : Form
const int WORKSHEETSTARTROW = 5;
const int WORKSHEETSTARTCOL = 4;
public Form1()
InitializeComponent();
dataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.AliceBlue;
dataGridView1.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black;
dataGridView1.ColumnHeadersDefaultCellStyle.Font =
new Font(dataGridView1.Font, FontStyle.Bold);
for (int columncount = 0; columncount < 10; columncount++)
new DataGridViewColumn();
DataGridViewColumn NewColumn = new DataGridViewColumn();
NewColumn.Name = "Col " + columncount.ToString();
NewColumn.Width = 50;
NewColumn.DefaultCellStyle.Font =
new Font(dataGridView1.DefaultCellStyle.Font, FontStyle.Italic);
DataGridViewCell cell = new DataGridViewTextBoxCell();
cell.Style.BackColor = Color.Wheat;
NewColumn.CellTemplate = cell;
dataGridView1.Columns.Add(NewColumn);
DataGridViewRow NewRow;
byte charA = 0x41;
for (int rowOffset = 1; rowOffset <= 10; rowOffset++)
int RowNumber = dataGridView1.Rows.Add();
NewRow = dataGridView1.Rows[RowNumber];
for (int columncount = 0; columncount < 10; columncount++)
NewRow.Cells[columncount].Value = ((char)(charA + columncount)).ToString() + rowOffset.ToString();
private void button1_Click(object sender, EventArgs e)
var excelApp = new Excel.Application();
excelApp.Visible = true;
Excel.Workbook excelbk = excelApp.Workbooks.Add(Type.Missing);
Excel.Worksheet xlWorkSheet1 = (Excel.Worksheet)excelbk.Worksheets["Sheet1"];
int worksheetRow = WORKSHEETSTARTROW;
for (int rowCount = 0; rowCount < dataGridView1.Rows.Count - 1; rowCount++)
int worksheetcol = WORKSHEETSTARTCOL;
for (int colCount = 0; colCount < dataGridView1.Columns.Count - 1; colCount++)
Excel.Range xlRange = (Excel.Range)xlWorkSheet1.Cells[WORKSHEETSTARTROW, worksheetcol];
xlRange.Value2 = dataGridView1.Columns[colCount].Name;
worksheetcol += 1;
for (int colCount = 0; colCount < dataGridView1.Columns.Count - 1; colCount++)
Excel.Range xlRange = (Excel.Range)xlWorkSheet1.Cells[worksheetRow, worksheetcol];
xlRange.Value2 = dataGridView1.Rows[rowCount].Cells[colCount].Value.ToString();
//xlRange.Font.Background = dataGridView1.Rows[rowCount].Cells[colCount].Style.BackColor;
xlRange.Font.Color = dataGridView1.Rows[rowCount].Cells[colCount].Style.ForeColor.ToArgb();
if (dataGridView1.Rows[rowCount].Cells[colCount].Style.Font != null)
xlRange.Font.Bold = dataGridView1.Rows[rowCount].Cells[colCount].Style.Font.Bold;
xlRange.Font.Italic = dataGridView1.Rows[rowCount].Cells[colCount].Style.Font.Italic;
xlRange.Font.Underline = dataGridView1.Rows[rowCount].Cells[colCount].Style.Font.Underline;
xlRange.Font.FontStyle = dataGridView1.Rows[rowCount].Cells[colCount].Style.Font.FontFamily;
worksheetcol += 1;
worksheetRow += 1;
jdweng -
A big problem of Generate report with PDF format....Urgent
I want to generate a report with pdf format through one java file, it have two page 1)gen_report.jsp 2) report_gen.java , the compliation was failed. However, i don't what the problem is .... i hope anyone can help me as it is very argent for me ....Thanks a lot
1)gen_report.jsp
<table id="AutoNumber1">
<tr>
<td background="images/top5movie.png">
<p align="center"> </p>
</td>
</tr>
<tr>
<td >
<div align="center">
<table id="AutoNumber2" >
<form method="GET" action="../report_gen" name="report_gen" target="_blank" onSubmit="javascript:return checkr1(this)">
<tr>
<td ><b>Report Description:</b></td>
<td >This report is to show the top five popular movies in cinemix for a period </td>
</tr>
<tr>
<td><b>Data scope:</b></td>
<td >Start from
<input type="text" name="start" value="2003-1-1" >to
<input type="text" name="end" value="2006-1-1" ></td>
</tr>
<tr>
<td><b>Data processing:</b></td>
<td >Show
<select name="order_by">
<option value="desc" selected>top</option>
<option value="asc">bottom</option>
</select>
5 films</td>
</tr>
<tr>
<td> <p align="center">
<input type="submit" value="View_Report" name="subm">
</p></td>
</tr>
<input type="hidden" name="report" value="r1">
</form>
<form method="GET" action="../report_gen" name="report_gen" target="_blank" onSubmit="javascript:return checkr2(this)">
<input type="hidden" name="report" value="r2">
</form>
</table>
</div>
</td>
</tr>
</table>Then my java code is here
report_gen.java
import java.io.*;
import java.net.*;
import javax.servlet.*;
import javax.servlet.http.*;
import java.util.*;
import java.sql.*;
// chart and pdf out
import java.awt.Graphics2D;
import java.awt.geom.Rectangle2D;
import java.io.FileNotFoundException;
import java.io.FileOutputStream;
import org.jfree.chart.ChartFactory;
import org.jfree.chart.JFreeChart;
import org.jfree.chart.plot.PlotOrientation;
import org.jfree.data.category.DefaultCategoryDataset;
import org.jfree.data.xy.*;
import org.jfree.data.xy.XYBarDataset;
import org.jfree.data.general.DefaultPieDataset;
import org.jfree.data.statistics.SimpleHistogramDataset;
import org.jfree.data.xy.XYSeries;
import org.jfree.data.xy.XYSeriesCollection;
import com.lowagie.text.Document;
import com.lowagie.text.DocumentException;
import com.lowagie.text.Rectangle;
import com.lowagie.text.pdf.DefaultFontMapper;
import com.lowagie.text.pdf.PdfContentByte;
import com.lowagie.text.pdf.PdfTemplate;
import com.lowagie.text.pdf.PdfWriter;
import com.lowagie.text.*;
import com.lowagie.text.pdf.*;
import com.lowagie.text.pdf.PdfPCell;
public class report_gen extends HttpServlet
private final String titles[] = {"Top Five popular movies ",
"Financial cirumstance of cinemas",
"Distribution of time segment",
"Distribution of favourite movie type"
private final String descs[] = {"This report is to show the top five popular movies in cinemix for a period ",
"This report is to show the financial circumstance of each cinema site ",
"This report is to analysis the customer when is the most visit time ",
"This report is to analysis the customer which type of movie do they watch the most"
private final String bigTitle = "Cinemix";
private final String driver = "org.gjt.mm.mysql.Driver";
private final String url= "jdbc:mysql://localhost:3306/cinemix";
private final String userID = "abc";
private final String passwd = "abc";
public void init(ServletConfig config) throws ServletException
super.init(config);
protected void doGet(HttpServletRequest request, HttpServletResponse response)
throws ServletException, IOException
final int width = 550;
final int height = 200;
/ title font (centre and report title)
final Font fTitle0 = FontFactory.getFont("Helvetica", 42, Font.BOLD);
final Font fTitle1 = FontFactory.getFont("Helvetica", 30, Font.BOLD);
// centre name:
final String title0 = bigTitle;
// Default category for DefaultCategoryDataset
final String cat = "data";
Connection conn;
JFreeChart chart;
String title1 = "xyz Report";
String chartDesc = "description";
String notes[] = new String[4];
String chartTitle = "so bad this is title";
String chartXTitle = "this is x";
String chartYTitle = "this is y.";
String report = request.getParameter("report");
int max=-10000;
int min=10000;
int j=0;
// do some basic checking
if (report == null || report.equals(""))
report = "-1"; // this course unknow report error message
String start = request.getParameter("start");
String end = request.getParameter("end");
String order_by = request.getParameter("order_by"); // ToDo: check invalid string
int topN = 5;
String order = (order_by.equals("desc")) ? "Top" : "Last";
String inv[] = {"08:30", "09:30", "10:30", "11:30", "12:30", "11:30", "12:30", "13:30", "14:30", "15:30", "16:30", "17:30","18:30","19:30","20:30","21:30","22:30","23:30"};
int inv_val[] = new int[inv.length - 1];
try
Class.forName(driver).newInstance();
catch(Exception e)
printE("Cannot load mysql database driver!", response);
e.printStackTrace();
return;
try
conn = DriverManager.getConnection(url, userID, passwd);
if (report.equals("r1")) { // report 1
DefaultCategoryDataset dataset = new DefaultCategoryDataset();
Statement stmt = conn.createStatement();
String sql = "select *,count(f.Name),f.Name from film f, filmDetail fd, ticket t where f.startDate > '" + start + "' and f.endDate < '" + end + "'and fd.filmID = f.filmID and fd.filmDetailID = t.filmDetailID group by f.name order by fd.filmDetailID asc limit '" +topN+"'";
ResultSet rs = stmt.executeQuery(sql);
while (rs.next())
if (rs.getInt("fd.filmDetailID") > max) max = rs.getInt("fd.filmDetailID");
if (rs.getInt("fd.filmDetailID") < min) min = rs.getInt("fd.filmDetailID");
j++;
ataset.setValue(rs.getInt("fd.filmDetailID"), cat,rs.getString("f.Name"));
title1 = titles[0];
chartDesc = descs[0];
chartTitle = order + " " + topN + " popular movie";
chartYTitle = "Box Office record";
chartXTitle = "Film Name";
gender = " ";
chart = ChartFactory.createBarChart(chartTitle, chartXTitle, chartYTitle, dataset,PlotOrientation.VERTICAL, false, true, false);
else
print("Error: I don't inderstand your request!", response);
return;
catch (SQLException e)
printE("Cannot open database connection? <br>", response);
// printE(e.toString);
e.printStackTrace();
return;
response.setContentType("application/pdf");
Document document = new Document(PageSize.A4, 5, 5, 5, 5);
try
PdfWriter writer;
writer = PdfWriter.getInstance(document, response.getOutputStream());
HeaderFooter footer = new HeaderFooter(new Phrase("Page: "), true);
footer.setBorder(Rectangle.NO_BORDER);
document.setFooter(footer);
footer.setAlignment(Element.ALIGN_CENTER);
// step 3
document.open();
document.add(getHeader(title0, title1, start, end, gender, order, topN, chartDesc));
document.add(printChart(chart, writer));
document.add(getFooter(notes));
catch(DocumentException de)
de.printStackTrace();
// step 5
document.close();
return;
}// end doGet()
/** Handles the HTTP <code>POST</code> method.
* @param request servlet request
* @param response servlet response
protected void doPost(HttpServletRequest request, HttpServletResponse response)
throws ServletException, IOException
// processRequest(request, response);
/** Returns a short description of the servlet.
public String getServletInfo()
return "Generate reports for " + bigTitle;
/* To print en error and exit(?) */
private void printE(Object obj, HttpServletResponse response) throws IOException
response.setContentType("text/html");
PrintWriter out;
out = response.getWriter();
out.print(obj.toString());
out.close();
// To-Do: how to force exiting?
// create data chart
private PdfPTable getHeader(String title0, String title1, String start, String end, String sex, String order, int topN, String desc)
Font fTitle0 = FontFactory.getFont("Helvetica", 42, Font.BOLD);
Font fTitle1 = FontFactory.getFont("Helvetica", 24, Font.BOLD);
Font fTitle3 = FontFactory.getFont("Helvetica", 12, Font.BOLD);
Font fValue = FontFactory.getFont("Helvetica", 12, Font.UNDERLINE);
Paragraph parStartEnd = new Paragraph();
parStartEnd.add(new Phrase("Data start from: ", fTitle3));
parStartEnd.add(new Phrase(start, fValue));
parStartEnd.add(new Phrase(" to ", fTitle3));
parStartEnd.add(new Phrase(end, fValue));
Paragraph parGenerateDate = new Paragraph();
parGenerateDate.add(new Phrase("Report generated at: ", fTitle3));
parGenerateDate.add(new Phrase(new java.util.Date().toString(), fValue));
Paragraph parGender = new Paragraph();
parGender.add(new Phrase("Current show gender: ", fTitle3));
parGender.add(new Phrase(sex, fValue));
Paragraph parTopN = new Paragraph();
parTopN.add(new Phrase("Now is showing ", fTitle3));
parTopN.add(new Phrase(order, fValue));
parTopN.add(new Phrase(" ", fValue));
parTopN.add(new Phrase(new Integer(topN).toString(), fValue));
parTopN.add(new Phrase(" record(s)", fTitle3));
// Start main table
PdfPTable tblMain = new PdfPTable(1);
tblMain.getDefaultCell().setBorder(0);
// Print title
tblMain.getDefaultCell().setHorizontalAlignment(Element.ALIGN_CENTER);
tblMain.addCell(new Paragraph(title0, fTitle0));
tblMain.addCell(new Paragraph(title1, fTitle1));
tblMain.addCell("");
tblMain.addCell("");
tblMain.addCell("");
// Print headers data
//tblMain.getDefaultCell().setHorizontalAlignment(Element.ALIGN_RIGHT);
//tblMain.addCell(parInvoiceNum);
//tblMain.addCell("");
tblMain.getDefaultCell().setHorizontalAlignment(Element.ALIGN_LEFT);
tblMain.addCell(parStartEnd);
tblMain.addCell("");
tblMain.addCell(parGenerateDate);
tblMain.addCell("");
if (sex != " ")
tblMain.addCell(parGender);
else if(order != null && topN > 0)
tblMain.addCell(parTopN);
else
tblMain.addCell(" \n");
tblMain.addCell("");
tblMain.setWidthPercentage(96);
tblMain.addCell(new Paragraph("Description of this report:", fTitle3));
tblMain.addCell(desc);
tblMain.addCell("\n");
// Finish main table
return tblMain;
// print a chart _directly_ to pdf and return a empty Pdftable...
public PdfPTable printChart(JFreeChart chart, PdfWriter writer)
PdfContentByte cb = writer.getDirectContent();
int width = 550;
int height = 450;
PdfTemplate tp = cb.createTemplate(width, height);
Graphics2D g2d = tp.createGraphics(width, height, new DefaultFontMapper());
Rectangle2D r2d = new Rectangle2D.Double(0, 0, width, height); //->,
chart.draw(g2d, r2d);
g2d.dispose();
cb.addTemplate(tp, 20, 170);
// quick method to push down the footer text
// the only things this method return
PdfPTable tblDownDown = new PdfPTable(1);
tblDownDown.getDefaultCell().setBorder(0);
tblDownDown.addCell(" \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n");
tblDownDown.addCell(" \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n");
tblDownDown.addCell(" \n \n \n \n \n \n");
return tblDownDown;
public PdfPTable getFooter(String notes[])
Font fNote = FontFactory.getFont("Helvetica", 14, Font.UNDERLINE);
Font fComment = FontFactory.getFont("Helvetica", 12, Font.ITALIC);
Font fTitle1 = FontFactory.getFont("Helvetica", 30, Font.ITALIC);
// Start footer table
PdfPTable tblFooter = new PdfPTable(1);
tblFooter.getDefaultCell().setBorder(0);
if (notes != null)
tblFooter.addCell(new Paragraph("Notes:", fNote));
tblFooter.addCell("");
tblFooter.addCell("");
tblFooter.getDefaultCell().setHorizontalAlignment(Element.ALIGN_LEFT);
for (int i=0;i<notes.length;i++)
if (notes[i] != null)
tblFooter.addCell(new Paragraph("" + (i+1) + ". " + notes[i] + "", fComment));
tblFooter.addCell("");
tblFooter.addCell("");
tblFooter.getDefaultCell().setHorizontalAlignment(Element.ALIGN_CENTER);
tblFooter.addCell(new Paragraph("- End of report -", fComment));
return tblFooter;
}Go to the cache directory and see if you can open the report directly from here (not in IE).
I have seen posts on problems with Acrobat Reader Plugin for IE (I believe it was version 6 of Reader).
Maybe you are looking for
-
RH 8 crashes on Save All when copying content between two open projects
[Win XP SP2] I've submitted a bug report for this issue. Note that RH does seem to save the content as it's dying (a very noble act, I must say), but the behavior is bothersome. ******BUG****** With two instances of RH8 running (dual monitors), and c
-
I added a mask to a mpeg1 .mov file to remove the letterboxing, and now it plays at like 6-7 fps. I had no trouble with the original file, and my computer should obviously have no problems keeping up (the file is only 320x176). Any ideas on what the
-
Hi all. I'm using the MVC pattern and tried to use a bean to store some values. I used the jsp:useBean directive to get the bean .I get "error on page " on the status and the message says that the bean is not defined.
-
Multiple SP calls in an AppModuleImpl class
Hello, I have a question about the ApplicationModuleImpl class. The application we are building will include many Database Stored Procedure calls and View Object invocations. My understanding of the ADF framework and best practices is that these call
-
How to supress automatic save ..
Hi, Ours is a Siebel 8.0. We have a requirement to implement a UI workflow for our users to (1) dis-allow or suppress automatic save of a record (say, Opportunity or Activity) when user creates a new record or updates an existing one (2) when user st