DEF VAR excelAPP AS COM-HANDLE NO-UNDO./* Cria uma nova Planilha */
CREATE "Excel.Application" excelAPPexcelAPP:VISIBLE = FALSE. /* Nao mostra a planilha */
excelAPP:Workbooks:Add. /* Adiciona uma pasta de trabalho com 3 planilhas */
excelAPP:ActiveSheet:PageSetup:Orientation = 2. /* Orientacao da impressao: 1 - Portrait, 2 Landscape */
excelAPP:ActiveSheet:PageSetup:LeftMargin = 1. /* Tamanho da margem esquerda */
excelAPP:ActiveSheet:PageSetup:RightMargin = 1. /* Tamanho da margem direita */
excelAPP:ActiveSheet:PageSetup:PrintTitleRows = "$1:$7". /* Cabecalho a ser impresso em quebras de p gina */
excelAPP:ActiveSheet:PageSetup:Zoom = FALSE. /* Mostra planilha sem zoom, zoom = 80 mostra com 80% de zoom */
excelAPP:ActiveSheet:PageSetup:PaperSize = 9. /* Define o tamanho do papel para A4 */
excelAPP:ActiveSheet:PageSetup:RightFooter = "CRK &P/&N".excelAPP:ActiveSheet:PageSetup:FitToPagesTall = 1.excelAPP:ActiveSheet:PageSetup:FitToPagesWide = 1.excelAPP:sheets:ITEM(numero da pasta):DELETE. /*Deleta a pasta passada como parametro*/
Nenhum comentário:
Postar um comentário