uweziegenhagen.de

\documentclass[16pt,latin]{scrartcl}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[paperheight=215cm,paperwidth=85cm, left=10mm,right=10mm,top=1mm,bottom=10cm]{geometry}
\usepackage{babel}
\usepackage{microtype}
\usepackage{graphicx}
\usepackage{xcolor}
\usepackage{blindtext}
\usepackage{tikz}
\usepackage[]{mdframed}
\usepackage[]{eso-pic}
 
\setlength{\parskip}{0pt}
\setlength{\parindent}{0pt}
\pagestyle{empty}
 
 
\definecolor{MyGray}{rgb}{0.96,0.97,0.98}
\makeatletter\newenvironment{graybox}{%
   \begin{lrbox}{\@tempboxa}\begin{minipage}{\columnwidth}}{\end{minipage}\end{lrbox}%
   \colorbox{MyGray}{\usebox{\@tempboxa}}
}\makeatother
 
\begin{document}
 
{\textcolor{gray}{\blindtext[130]}}
 
\AddToShipoutPictureFG{
  \put(50,5850){
{\scalebox{5}{\bfseries\huge Professioneller Textsatz mit }}
}}
 
 
\AddToShipoutPictureFG{
  \put(1400,5450){
{\scalebox{10}{\bfseries\huge \LaTeX }}
}}
 
\AddToShipoutPictureFG{
  \put(100,4700){
\colorbox{gray}{\includegraphics[width=0.5\textwidth]{pg_0003.pdf}}
}}
 
\AddToShipoutPictureFG{
  \put(1100,4050){
\colorbox{gray}{\includegraphics[width=0.5\textwidth]{pg_0004.pdf}}
}}
 
\AddToShipoutPictureFG{
  \put(100,3450){
\colorbox{gray}{\includegraphics[width=0.5\textwidth]{pg_0009.pdf}}
}}
 
\AddToShipoutPictureFG{
  \put(1100,3000){
\colorbox{gray}{\includegraphics[width=0.5\textwidth]{pg_0076.pdf}}
}}
 
 
 
\AddToShipoutPictureFG{
  \put(100,2290){
\colorbox{gray}{\includegraphics[width=0.5\textwidth]{pg_0066.pdf}}
}}
 
 
\AddToShipoutPictureFG{
  \put(1100,1950){
\colorbox{gray}{\includegraphics[width=0.5\textwidth]{pg_0068.pdf}}
}}
 
 
\AddToShipoutPictureFG{
  \put(100,1100){
\colorbox{gray}{\includegraphics[width=0.5\textwidth]{pg_0065.pdf}}
}}
 
 
\AddToShipoutPictureFG{
  \put(1100,750){
\colorbox{gray}{\includegraphics[width=0.5\textwidth]{pg_0075.pdf}}
}}
 
\end{document}

Function csvRange(myRange As Range)
Dim csvRangeOutput
    For Each entry In myRange
        If Not IsEmpty(entry.Value) Then
            csvRangeOutput = csvRangeOutput & entry.Value & "; "
        End If
    Next
    csvRange = Left(csvRangeOutput, Len(csvRangeOutput) - 1)
End Function

#Source: http://www.vistax64.com/powershell/23311-words-printout-method.html 
$wd = new-object -com word.application
$wd.visible = 1
 
$files = gci f:\abc\*.docx
 
foreach($i in $files){
    $doc = $wd.documents.open($i.fullname)
    $doc.printout()
    $doc.close()
}

% !TEX TS-program = XeLaTeX
\documentclass[fontsize=12pt,ngerman]{scrartcl}
\usepackage[a4paper]{geometry}
\usepackage{fontspec,xcolor}
 
\usepackage{xkeyval,polyglossia}
\setmainlanguage[spelling=new]{german}
\usepackage{graphicx}
\usepackage{csquotes}
\usepackage{paralist}
\usepackage[]{blindtext}
 
\setmainfont[ItalicFont={Source Sans Pro Italic},BoldFont={Source Sans Pro Bold},BoldItalicFont={Source Sans Pro Bold Italic}]{Source Sans Pro}
 
\renewcommand{\familydefault}{\sfdefault}
 
\begin{document}
 
\blindtext
 
{\bfseries \blindtext}
 
{\itshape \blindtext}
 
{\itshape \bfseries \blindtext}
 
\end{document}

% !TEX TS-program = lualatex
\documentclass[fontsize=12pt,ngerman]{scrartcl}
\usepackage[a4paper]{geometry}
\usepackage{fontspec,xcolor}
\usepackage{xkeyval}
\usepackage[]{babel}
\usepackage{graphicx}
\usepackage{csquotes}
\usepackage{blindtext}
 
\setmainfont[ItalicFont={Source Sans Pro Italic},BoldFont={Source Sans Pro Bold},BoldItalicFont={Source Sans Pro Bold Italic}]{Source Sans Pro}
 
\renewcommand{\familydefault}{\sfdefault}
 
\begin{document}
 
\blindtext
 
{\bfseries \blindtext}
 
{\itshape \blindtext}
 
{\itshape \bfseries \blindtext}
 
\end{document}