How to set a page size and margins
in C# and VB.NET
Complete code.
using System;
using System.IO;
namespace Sample
{
class Test
{
static void Main(string[] args)
{
// Set page size A5; margins: top, bottom 30 mm and left, right to 50 mm.
// If you need more information about "HTML to RTF .Net" email us at:
// support@sautinsoft.com
ConvertHtmlToDocxFile();
}
public static void ConvertHtmlToDocxFile()
{
SautinSoft.HtmlToRtf h = new SautinSoft.HtmlToRtf();
// After purchasing the license, please insert your serial number here to activate the component.
// h.Serial = "XXXXXXXXX";
string inputFile = @"..\..\sample.html";
string outputFile = Path.ChangeExtension(inputFile, ".docx");
// Set page size and page margins.
h.PageStyle.PageSize.A5();
h.PageStyle.PageMarginTop.Mm(30);
h.PageStyle.PageMarginBottom.Mm(30);
h.PageStyle.PageMarginLeft.Mm(50);
h.PageStyle.PageMarginRight.Mm(50);
if (h.OpenHtml(inputFile))
{
bool ok = h.ToDocx(outputFile);
// Open the result for demonstration purposes.
if (ok)
System.Diagnostics.Process.Start(new System.Diagnostics.ProcessStartInfo(outputFile) { UseShellExecute = true });
}
}
}
}
Imports System
Imports System.IO
Imports System.Text
Module Module1
Sub Main()
' Set page size A5; margins: top, bottom 30 mm and left, right to 50 mm.
' If you need more information about "HTML to RTF .Net" email us at:
' support@sautinsoft.com
ConvertHtmlToDocxFile()
End Sub
Public Sub ConvertHtmlToDocxFile()
Dim h As New SautinSoft.HtmlToRtf()
' After purchasing the license, please insert your serial number here to activate the component.
'h.Serial = "XXXXXXXXX"
Dim inputFile As String = "..\sample.html"
Dim outputFile As String = Path.ChangeExtension(inputFile, ".docx")
' Set page size and page margins.
h.PageStyle.PageSize.A5()
h.PageStyle.PageMarginTop.Mm(30)
h.PageStyle.PageMarginBottom.Mm(30)
h.PageStyle.PageMarginLeft.Mm(50)
h.PageStyle.PageMarginRight.Mm(50)
If h.OpenHtml(inputFile) Then
Dim ok As Boolean = h.ToDocx(outputFile)
' Open the result for demonstration purposes.
If ok Then
System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo(outputFile) With {.UseShellExecute = True})
End If
End If
End Sub
End Module
If you need a new code example or have a question: email us at support@sautinsoft.com or ask at Online Chat (right-bottom corner of this page) or use the Form below: