diff --git a/uppdev/PrinterInfo/PrinterInfo.upp b/uppdev/PrinterInfo/PrinterInfo.upp
new file mode 100644
index 000000000..a454db90b
--- /dev/null
+++ b/uppdev/PrinterInfo/PrinterInfo.upp
@@ -0,0 +1,11 @@
+uses
+	CtrlLib,
+	TDraw,
+	Report;
+
+file
+	main.cpp;
+
+mainconfig
+	"" = "GUI";
+
diff --git a/uppdev/PrinterInfo/init b/uppdev/PrinterInfo/init
new file mode 100644
index 000000000..3643ee4ae
--- /dev/null
+++ b/uppdev/PrinterInfo/init
@@ -0,0 +1,6 @@
+#ifndef _PrinterInfo_icpp_init_stub
+#define _PrinterInfo_icpp_init_stub
+#include "CtrlLib/init"
+#include "TDraw/init"
+#include "Report/init"
+#endif
diff --git a/uppdev/PrinterInfo/main.cpp b/uppdev/PrinterInfo/main.cpp
new file mode 100644
index 000000000..336cb1485
--- /dev/null
+++ b/uppdev/PrinterInfo/main.cpp
@@ -0,0 +1,16 @@
+#include <CtrlLib/CtrlLib.h>
+#include <TDraw/TDraw.h>
+#include <Report/Report.h>
+
+using namespace Upp;
+
+GUI_APP_MAIN
+{
+	String qtf;
+	qtf << "{{1 " << String('&', 100) << "}}";
+	
+	Report r;
+//	r.ChooseDefaultPrinter();
+	r << qtf;
+	Perform(r);
+}