DataSolveProblems

Sub PrintActiveSheet()
    
    Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet

    With ws.PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesTall = 1
        .FitToPagesWide = 1
        .PrintArea = "B1:R41"

giordanocardillo

Caution

Due to the subject of this Gist there are a lot of spam/scam comments. I try to remove them all as soon as possible. I don't recommend you to click on any link in the comments

How to remove Microsoft Office 2016 Product Key

1. Open a command prompt as Administrator
2. In the command prompt, type the following:

• Office 2016 (32-bit) on a 32-bit version of Windows

cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /dstatus

maciakl

@echo off

rem This script will attempt to find this systems Dell Service Tag
rem The tag will be recorded in info.txt on the desktop

mode 15,1
title [~]

set FILE="%USERPROFILE%\Desktop\info.txt"

pamelafox

// Includes functions for exporting active sheet or all sheets as JSON object (also Python object syntax compatible).
// Tweak the makePrettyJSON_ function to customize what kind of JSON to export.

var FORMAT_ONELINE   = 'One-line';
var FORMAT_MULTILINE = 'Multi-line';
var FORMAT_PRETTY    = 'Pretty';

var LANGUAGE_JS      = 'JavaScript';
var LANGUAGE_PYTHON  = 'Python';